Здравствуйте, я пытаюсь отменить слияние ячеек на не aктивном лисе. Ниже приведен мой код, правда, он не работает. После For i = 0 To 9 выскакивает ошибка “Run-time error '1004': Application-defined or object-defined error”. На сколько я понял, проблема в том, что объект Worksheets/Sheets не поддерживает UnMerge свойство, но я могу и ошибаться. Если я добавляю ws.Activate (как в test2) все рабтает нормаьно. Вопрос: "Можно ли осуществить данную процедуру БЕЗ активации каждого листа?" Заранее благодарен за ответ.  
 
Sub test1()  
   Dim i As Integer, ws As Worksheet  
     
   For Each ws In ActiveWorkbook.Worksheets  
       Select Case ws.Name  
           Case "5 - Top Network Facilities", _  
               "5b - Top Arb Facilities"  
               For i = 0 To 9  
                   ws.Range(Cells(2 + i * 5, 1), _  
                       Cells(6 + i * 5, 1)).UnMerge  
               Next i  
           Case Else  
       End Select  
   Next ws  
End Sub  
 
Sub test2()  
…  
               For i = 0 To 9  
                   ws.Activate  
                   Range(Cells(2 + i * 5, 1), _  
                       Cells(6 + i * 5, 1)).UnMerge  
               Next i  
…  
End Sub

Коллеги, здравствуйте.  
 
Нужна помощь с копированием ячеек между разными листами при помощи VBA. Скажем я нахожусь на Sheet1 и хочу скопировать ячейку А1 на этом листе в Sheet2 ячейки В1:В10, причем не переключаясь между листами. Код Worksheets(“Sheet1”).Range(“A1”).Copy Worksheets(“Sheet2”).Range(“B1:10”) не работает, выдает Application-defined or object-defined error. Если же дописать строчку переключения между листами, все работает, но хотелось бы знать можно ли это сделать без переключения.  
 
Заранее благодарен за помощь.