Macro : Find Data Number in Only Cell Certainty in Multiple Sheets

[muhammad susanto]

hi all...

how to modify this code :
i want spesicifik find in only cell AD, row 14

Sub SearchAllSheets()    Dim ws As Worksheet
    Dim rFound As Range
    Dim strName As String
     
    On Error Resume Next
    strName = InputBox("What Name?")
    If strName = "" Then Exit Sub
    For Each ws In Worksheets
        With ws.UsedRange
            Set rFound = .Find(What:=strName, After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole)
            If Not rFound Is Nothing Then
                Application.Goto rFound, True
                Exit Sub
            End If
        End With
    Next ws
    On Error GoTo 0
     
     MsgBox "Value not found"
End Sub

thanks in advance...

m.susanto

 

[mrshl9898]

What's not working?

If I have 12 in the cell and look for 2 it doesn't find it, if I look for 12 it does.

 

[muhammad susanto]

hi marshl9898...

great work!!!
thank you for all and for your kindness ..