Есть рабочая книга Excel, содержащая несколько десятков листов.
Подскажите, как написать код программы для поиска по всем листам книги.
У меня есть код. Он начинает поиск с первого листа и продолжает дальше искать, но как только на каком-то листе он не находит нужное значение, он прерывает поиск.

Private Sub cmdSEARCH_Click()
Dim a As Long, a1 As Integer, a2&, s$, str As String
Dim oExcel As Object
Dim wb1 As Object
Dim ws As Worksheet

a = 1

Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
oExcel.Visible = True

Set wb1 = oExcel.Workbooks.Open(Text1)

On Error GoTo ErrorHandler
STF = InputBox("Что Вы хотите найти?", _
"Поиск", StringToFind)

If Len(STF) <> "" Then
StringToFind = STF

For Each ws In wb1.Worksheets
Columns("A:Z").Find(StringToFind, after:=ActiveCell).Activate
ws.Activate
ws.Visible = True
Next ws
End If
Exit Sub

ErrorHandler:
MsgBox "К сожалению, такого выражения нет"

End Sub