Array of worksheets

[JackDanIce]

Hi,

I'm trying to copy an array of sheets into a new workbook but getting run-time error (method copy of object sheets failed) with following:

Sub Main()
  Sheets(Array(Split(MySheets, "|"))).Copy
End Sub

Private Function MySheets() as String
  MySheets = "Sheet1|Sheet2|Sheet3"
End Function

Can anyone suggest correct syntax or alternative code to achieve same? I want to keep sheet names isolated and in a separate function

TIA,
Jack

 

[RoryA]

Split returns an array so you don't need the Array function - just use:

  Sheets(Split(MySheets, "|")).Copy

 

[JackDanIce]

Urgh should have realised! Thank you Rory, having syntax issues again today