Thank you for your help. I entered the "ws." and it does not jump over to the next page, Could you enter the code on a sheet and try it and see what I am doing wrong. I have several books on VBA and I am trying to learn and also learn from examples that I see.



Sub LineSearchTESTA1()
Dim MyValue, MyFindNext
Dim sht As Worksheet
Dim ws As Worksheet
MyValue = InputBox("Company Name", "FAX / E-MAIL DATABASE")
 If MyValue = "" Then
 [C3].Select
Exit Sub
End If
On Error GoTo err_Trap
ws.Columns(3).Find(What:=MyValue).Activate
For Each ws In Sheets(Array("A", "B", "C"))
MyFindNext = vbYes
Do Until MyFindNext <> vbYes
MyFindNext = MsgBox("Next " & MyValue & "?", vbYesNo, "Find Next")
If MyFindNext = vbNo Then
Exit Sub
End If
Columns(3).FindNext(After:=ActiveCell).Activate
Loop
On Error GoTo 0
Exit Sub
err_Trap:
If Err.Number = 91 Then
Ans = MsgBox("Search could not find '" & MyValue & "'." & vbNewLine & _
" " & vbNewLine & _
"Try another search?", 4, MyValue & " not found")
If Ans = vbNo Then Exit Sub
Call LineSearchTESTB2
Else
MsgBox Err.Number & ": " & Err.Description
End If
Next ws
End Sub