You can do something like below (this will find all cells with this value )
Sub findRowNumber()
Dim FND As Boolean
FND = False
With ActiveSheet.Cells
'
Set Rw = .Find(What:="104", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not Rw Is Nothing Then
firstAddress = Rw.Address
Do
FND = True
Rw.Select
MsgBox (" The Row number of the selected cell is " & Rw.Row)
Set Rw = .FindNext(Rw)
Loop While Not Rw Is Nothing And Rw.Address <> firstAddress
End If
If FND = False Then
MsgBox (" No Cell Found with 104 value")
End If
End With
End Sub
Bookmarks