Copy Sheets to new Book
This ought to work
Dim SheetToCopy As String
SheetToCopy = Sheets("Check Request").Range("B2").Value
Sheets(Array("Check Request", SheetToCopy)).Copy
You can also refer to a worksheet by its order from left to right.
Regards,
Mika Oukka
"Steve" wrote in message
...
Hello. In my workbook I need to copy 2 sheets into a new book. I
have the code below that does just that. Here's the twist - The sheet
named "Customer Number" will vary. But the sheet name will be in Cell
B2 of the worksheet "Check Request". So, can I modify the below code
to copy 2 sheets: Check Request, and the sheet name identified in
Check Request B2? Thanks
Sheets(Array("Check Request", "Customer Number")).Copy
|