Цикл For Each

[DIMAIVANOV]

При использовании For Each, операторы для первого элемента
выполняются дважды:

Код: Выделить всё

Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
Range("IT2:IT45").Value=Range("IT1").Value
Dim p As integer
For p=1 To 800
   If Sheets("1").Cells(p,3)="" Then
Union(Range("A1:B45"), Range("IS1:IS45"), Range("IT1:IT45")).Copy _
Sheets("1").Cells(p,3)
Exit For
End If
Next
Sht.Activate
Next

Заранее спасибо

[GSerg]

А надо уточнять, где sheets.
Вместо activate.

[DIMAIVANOV]

Указать имя книги ?

[GSerg]

Указать sht. переж каждым range внутри цикла.
А activate убрать.