помогите мне пожалуйста! мне нужно в Excel найти нужные данные сразу на всех листах. Я написал код, но он находит только на одном листе:

On Error GoTo ErrorHandler
'STF = InputBox("Что Вы хотите найти?", _
'"Поиск", StringToFind)
If STF <> "" Then
StringToFind = STF
wb1.Sheets("P25").Range("A:Z").Find(StringToFind, after:=ActiveCell).Activate
End If
Exit Sub

ErrorHandler:
MsgBox "К сожалению, такого выражения нет"
************************************************************
Мне дали (как бы правильный код) но он не работает:
On Error GoTo ErrorHandler
'STF = InputBox("Что Вы хотите найти?", _
'"Поиск", StringToFind)

dim ws as worksheet

If len(STF) > Then
StringToFind = STF
for each ws in wb1.worksheets
wsRange("A:Z").Find(StringToFind, after:=ActiveCell).Activate
next ws
End If
Exit Sub
*********************************************************
ПОМОГИТЕ ПОЖАЛУЙСТА! СРОЧНО НУЖЕН ПРАВИЛЬНЫЙ КОД!