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.
Sub ClearMeasuringUp() If MsgBox("You are about to clear the entire worksheet - Are you sure you want to proceed?", vbYesNo) = vbYes Then ActiveSheet.Range("B28:D28,F28:H28,J28:L28,P28").ClearContents ActiveSheet.Cells(27, 14).Value = "Diameter" Application.Goto Reference:="Diameter" Selection.ClearContents End If End Sub
ActiveSheet.Cells(27, 14).Value = "Diameter"