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

Dim twist As String
twist = Worksheets("Check Request").Range("B2").Value
Sheets(Array("Check Request", twist)).Copy

"Steve" wrote:

> 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
>

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" <(E-Mail Removed)> wrote in message
news:495a98d0-cec7-4470-8f2b-(E-Mail Removed)...
> 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

Try this Steve

Sub test()
Dim MySheetString As String

MySheetString = Sheets("Check Request").Range("B2")
Sheets(Array("Check Request", MySheetString)).Copy
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Steve" <(E-Mail Removed)> wrote in message news:495a98d0-cec7-4470-8f2b-(E-Mail Removed)...
> 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