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.
Private Sub Worksheet_SelectionChange(ByVal target As Range) If Intersect(target, Range("A1:X400")) Is Nothing Then Exit Sub If target.Count > 1 Then Exit Sub Dim DataSheet As Range Dim TargetFound As Range Dim xRow As Integer Dim MessageString Dim exampleDate As Date Dim target1 As Range Set target1 = Range("B7:H400") 'This is where my data is coming from? Set DataSheet = Worksheets("Detail").Range("A2:X400") Set TargetFound = DataSheet.Find(ActiveCell.Value) If Not TargetFound Is Nothing Then xRow = TargetFound.Row Set DataSheet1 = Worksheets("Detail").Range("A2:A1400") Set TargetFound1 = DataSheet1.Find(ActiveCell.Value) If TargetFound1 Is Nothing Then Exit Sub