This works for me when associated with a button.
Dim wks As Worksheet
Dim rng As Range
Dim strAddress As String, strFind As String
strFind = InputBox("Please enter search reference:")
For Each wks In Worksheets
Set rng = wks.Cells.Find(strFind, lookat:=xlWhole
LookIn:=xlFormulas)
If Not rng Is Nothing Then
strAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox("Continue Searching?", vbYesNo + vbQuestion)
vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = strAddress Then Exit Do
Loop
End If
Next wk