Sub Is_Na() Application.DisplayAlerts = False Dim c As Range On Error GoTo exit_routine_isna Set UsedRange = Application.InputBox(prompt:="Please Select your range source, in this range you will find the cells wich are not in your range to compare", Title:="Range Select", Type:=8) Set ComparisonRange = Application.InputBox(prompt:="Please Select Range to compare", Title:="Range Select", Type:=8) For Each c In UsedRange If IsNumeric(Application.Match(c, ComparisonRange, 0)) Then Else: c.EntireRow. End If Next c Interior.ColorIndex = "3" exit_routine_isna: End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.