Sub Rowshow1()
Dim AllOfThem As Range
Dim k As Long, myWord As String
myWord = InputBox("Word to find?")
If myWord < "" Then
For k = Cells(Rows.Count, "H").End(xlUp).Row To 1 Step -1
If InStr(1, CStr(Cells(k, "H")), myWord, vbTextCompare) Then
If AllOfThem Is Nothing Then
Set AllOfThem = Rows(k).EntireRow
Else
Set AllOfThem = Union(AllOfThem, Rows(k).EntireRow)
End If
End If
Next k
End If
AllOfThem.Select
End Sub

--
Gary''s Student - gsnu200907


"CC" wrote:

I have this code to select the entire row if find a word in column H

Is it possible select ALL ROWS if the the word that I search is in more
than one row ( the same column H )

thank you for yor help

cc


Sub Rowshow1()
Dim k As Long, myWord As String
myWord = InputBox("Word to find?")
If myWord < "" Then
For k = Cells(Rows.Count, "H").End(xlUp).Row To 1 Step -1
If InStr(1, CStr(Cells(k, "H")), myWord, vbTextCompare) Then
Rows(k).EntireRow.Select
End If
Next k
End If
End Sub