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

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

Здравствуйте, уважаемые формумчане! Мне необходимо макросом скопировать выделенные вразнобой листы в другую книгу. я бегу циклом по каждому листу и хотела поставить условие: если лист выделен, то его копировать. Но метода selected почему то нет( Помогите пожалуйста, как это реализовать. вот код. какое условие мне задать на месте вопросов?

                    Листинг программы
                
 
                        
                          
                    
quantityList = Application.ActiveWorkbook.Sheets.Count 
    For i = 1 To quantityList
        ASh = ActiveWorkbook.Worksheets(i)
        If (ASh.Visible = true) and (ASh ???) Then
            ASh.Copy Before:=WB_NewPrise.Sheets(1)
        End If
    Next i

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

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

textual
                            Листинг программы 
                        
activewindow.SelectedSheets.Copy Before:=WB_NewPrise.Sheets(1)

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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