Option Explicit
Sub Example()
Dim row As Excel.Range
Dim cell As Excel.Range
For Each row In Range("A1:H10").Rows
If 0 = StrComp(row.Cells(1).Value, "NIO", vbTextCompare) Then
Set cell = row.Cells(1)
Else
Set cell = row.Find("NIO", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False)
End If
If Not cell Is Nothing Then
Debug.Print cell.Address(0, 0) & " = '" & cell.Value & "'"
End If
Next
End Sub