SELECT ALL ROWS IF FIND
Check your other post.
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
--
Dave Peterson
|