FInding A Value On Hidden Worksheets Using A Form

How would you search multiple hidden sheets named JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC Using a textbox to return a value to find on these multiple hidden sheets. The code must find Orange, Oranges Orange BLossom by typing in "Ora".

It then moves to the first value found on the first worsheet found and mekes it the active cell, asks with a msg box to find the next value and so on. This code works but it only finds the value on the sheet THAT userform was designed for in the sheet code page:

[code]
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim MyValue, MyFindNext, FirstFound, LastFound
MyValue = Me.TextBox1
If Len(MyValue) = 0 Then Exit Sub

StartSearch:

On Error GoTo err_Trap
Cells.Find(What:=MyValue, After:=[A1], LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
FirstFound = ActiveCell.Address
MyFindNext = vbYes
Do Until MyFindNext vbYes