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