Block with+if

[Kot070]

Добрый день, подскажите как сделать чтобы работала проверка когда я выбираю другую книгу.В 1 экземпляре Excel открыто 2 книги
Сейчас выделяет желтым строку if и выдает сообщение "Object variable or With block variable not set"

  With Workbooks(istok).Sheets(1).Activate 'переключаю на другую книги и активирую нужный лист
          lLastRow = Sheets(1).Cells.SpecialCells(xlLastCell).Row
            If Sheets(1).Rows("3:3").Find(What:="Test")Then
                Sheets(1).Rows("3:3").Find(What:="test").Activate
                adr = ActiveCell.Address
                new_adr = Left(adr, 3)
                Sheets(1).Range(adr & ":" & new_adr & lLastRow + 2).Select
                Selection.Copy
             Else
              Exit Sub
             End If
    End With

[IgorGO]

код написан в соотв. с синтаксисом VBA, макрос начинает выполняться без предупреждений

[Kot070]

Так он не выполняется до конца, а останавливается на строке if

[Aleksandr H.]

при такой ошибке всегда прописываю полные определения елемента. Может Sheets(1) заменить на Workbooks(istok).Sheets(1) или "." спереди поставить

[Kot070]

Если меняю на Workbooks(istok).Sheets(1) ошибка такая же, если просто "." ошибка Object required

[kuklp]

Нафига Вам там With? Чтоб лист активировать? Уберите его и ничего не изменится, а букв станет меньше. Попробуйте:

With Workbooks(istok).Sheets(1)
.Activate 
 lLastRow = .Cells.SpecialCells(xlLastCell).Row
 If Not .Rows("3:3").Find("Test") Is Nothing Then

[kuklp]

И не надо ничего активировать:

   With Workbooks(istok).Sheets(1)
        lLastRow = .Cells.SpecialCells(xlLastCell).Row
        If Not .Rows(3).Find("Test") Is Nothing Then
            adr = .Rows(3).Find(What:="test").Address
            new_adr = Left(adr, 3)
            .Range(adr & ":" & new_adr & lLastRow + 2).Copy
        Else
            Exit Sub
        End If
    End With