Скопировать выделенные листы в другую книгу - 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)