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