Как в VB6 написать программу для выбора нужного значения из одной рабочей книги Excel, в которой 50 листов и на каждом листе находится нужное значение, и скоприровать этоже значение в другую рабочую книгу Excel в определенный столбец.

ЛЮДИ ПОМОГИТЕ ПОЖАЛУЙСТА!!!
мне надо найти некоторые данные в рабочей книге Excel на каждом листе, содержащую много страниц (85). Я написал этот код, но он не работает (не находит эти данные):

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

Dim ws As Worksheet

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