Moving selected sheets

[Primoz Bradac]

I want to create a macro which would move a set of selected sheets from
one book to another.

I know how to select the sheets and move them e.g.:

Sheets(Array("List5", "List3")).Select
Sheets("List3").Activate
Sheets(Array("Sheet5", "Sheet3")).Move Before:=Workbooks
("Book3").Sheets(3)

But what if the sheets are already selected before starting the macro.
So I don't need the "Select" method and instead of Sheets(Array
("Sheet5"...).Move I'd need something like Sheets(<selected
sheets>).Move

TIA,
Primoz

 

[Bernie Deitrick]

Primoz,

Use

ActiveWindow.SelectedSheets.Move ......

HTH,
Bernie
Excel MVP

 

[Primoz Bradac]

Thanks a lot Bernie, it works fine.

Primoz