Thank you for your help.

I entered your line of code and changed the "Next sht" to "Next ws" and I must not have it in the correct place, I thought it should be after the "End If". But this did not work? What am I doing wrong.
Thank you for your help. 

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
For Each ws In Sheets(Array("A", "B", "C"))
On Error GoTo err_Trap
Columns(3).Find(What:=MyValue).Activate
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