[RESOLVED] copy worksheet

[googull]

I had something similar to this to do just last week. I turned on Macro Record, performed the desired functions directly and was able to modify the code easily for programmable extension.

Sheetx = sheet to be copied or moved
BookY = workbook to be copied or moved to

looping through your list selection...

Sheets("Sheetx").Copy After:=Workbooks("BookY").Sheets(1)

'select the workbook that received the new sheet.

Windows("BookY").Activate

'save workbook(Y) in file path

ActiveWorkbook.SaveAs Filename:="D:\My Docs\BookY.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

next loop