Копирование данных с одного листа на несколько других листов - VBA

Формулировка задачи:

В общем, есть код который должен копировать данные из одного листа на несколько других листов. Вот он:

Sub CopyToOtherSheet()
Dim WS As Variant
WS = Array('Sheet2', 'Sheet3')
Sheets(WS).FillAcrossSheets
   Worksheets('Sheet1').Range ('A1:D6')
End Sub

Но почему то этого не происходит. Выдает: 'Run-time error '9': Subscript out of range'. Вот... Все казалось так просто. Ума не приложу в чем проблема.

Решение задачи: «Копирование данных с одного листа на несколько других листов»

textual
                            Листинг программы 
                        
                            Sheets(WS).FillAcrossSheets _
Worksheets('Лист1').Range('A1:D6')

Оцени полезность:

6 голосов , оценка 3.833 из 5

Похожие ответы