Hi ddh,
Does this do what you want to do?
Sub LineSearchTEST01(Optional SearchVal As String)
Dim MyValue$, MyFindNext&, Ans&
Dim FirstAddress$, Counter&
Dim sht As Worksheet, Cel As Range
If SearchVal = "" Then
MyValue = InputBox("Company Name", "FAX / E-MAIL DATABASE")
If MyValue = "" Then
[C3].Select
Exit Sub
End If
Else
MyValue = SearchVal
End If
For Each sht In Sheets(Array("A", "B", "C", "D", "E", "F", "G", "H", _
"I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", _
"W", "X", "Y", "Z"))
With sht
sht.Activate
Set Cel = .Columns(3).Find(What:=MyValue)
Counter = 0
If Not Cel Is Nothing Then
FirstAddress = Cel.Address
Do
Counter = Counter + 1
Cel.Activate
MyFindNext = MsgBox("Next " & MyValue & "?", vbYesNo, "Find Next")
If MyFindNext = vbNo Then Exit Sub
'Else it's vbYes & the search continues
Set Cel = .Columns(3).FindNext(Cel)
Loop Until Cel Is Nothing Or Cel.Address = FirstAddress
End If
End With
Next
If Counter = 0 Then
Sheets(1).Select [C3].Select
Ans = MsgBox("Search could not find '" & MyValue & "'." & _
vbNewLine & " " & vbNewLine & _
"Try another search?", 4, MyValue & " not found")
If Ans = vbYes Then
Call LineSearchTEST01
Else
Exit Sub
End If
End If
End Sub