![]()
Sub sampleSearch() Dim wsh As Long Dim lastRow As Long Dim name As String: name = "*" Dim rgSearch As Range Dim cell As Range Dim Flag As Boolean lastRow = Worksheets(wsh).Cells(Rows.Count, 1).End(xlUp).Row wsh = 5 Flag = False For Count = 1 To lastRow Set rgSearch = Worksheets(wsh).Range("B" & Count & ":D" & Count) Set cell = rgSearch.Find(name) If Not cell Is Nothing Then If cell <> "NAME" And cell <> "VALUE 1" And cell <> "VALUE 2" And cell <> "VALUE 3" Then Debug.Print "Found: " & cell.Address(False, False) Debug.Print Worksheets(wsh).Range("A" & cell.Row) & cell.Row Flag = True End If End If Next If Flag = False Then Debug.Print "Not found" Debug.Print Worksheets(wsh).name & " " & lastRow & " " & rgSearch.Address(False, False) & vbCr & "END" End If End Sub
Bookmarks