Free for PREMIUM members
Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Dim LastRow As Long, i As Long
Dim MyArray() As String, TmpArray() As String
LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
MyArray = Split(Sheets("Sheet1").Range("A" & i).Value, "/")
TmpArray = Split(Trim(MyArray(1)), " ")
If Val(Trim(TmpArray(0))) <= 2 Then
Sheets("Sheet1").Range("A" & i).Interior.ColorIndex = 6
Open in new window
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.