Вот пример кода (без излишеств):
Объясните, почему, при повторном вызове функции FindCell выскакивает ошибка 91? =(
Я не совсем понимаю... Что именно не так.
Код |
---|
Sub Test() Dim IDCell As Range, EVCell As Range Set wsSource = ThisWorkbook.Sheets("TEST SHEET") Set ActivityIDCell = wsSource.Range(FindCell("Activity ID")) Set EVCell = wsSource.Range(FindCell("EARNED VALUE")) ' Ошибка возникает после второго раза запуска функции FindCell End Sub Function FindCell(CellContent As String) FindCell = wsSource.Cells.Find(CellContent, LookIn:=xlValues).Address End Function |
Объясните, почему, при повторном вызове функции FindCell выскакивает ошибка 91? =(
Я не совсем понимаю... Что именно не так.