I have a workbook with sheets (A thru Z). I am wanting to only search in sheets (A thru C).
I cannot figure out what I am doing wrong.
Thank you for your help.


Sub LineSearchTESTA1()
Dim MyValue, MyFindNext
Dim sht As Worksheet
MyValue = InputBox("Company Name", "FAX / E-MAIL DATABASE")
If MyValue = "" Then
[C3].Select
Exit Sub
End If
On Error GoTo err_Trap
Columns(3).Find(What:=MyValue).Activate

For Each sht In Worksheets
sht.Worksheets("SheetA", "SheetB", "SheetC") = 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 sht

End Sub