Excel VBA Sheets（Array（））。选择下标超出范围

Question

Having a little problem with this tiny bit of code in Excel VBA.

All I'm trying to do is select multiple sheets in a workbook and export them as one PDF. I have many Sheets that I don't want to hide or move around, so earlier in my code I looped and saved the particular names in an array. I was getting this error, so i thought I would resort to simply hard coding their names to see if that worked.

But even with hard coded names i get the 'Subscript out of range error', so there must be something else going wrong.

wb.Sheets(Array("Sheet 1", "Sheet 2", "Sheet 3", "Sheet 4", "Sheet 5")).Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, _ ............

Are there any known errors relating to the above statement? (I've only included the first 2 lines as it doesn't execute past the first line) OR are there any suggestions to stop this error occuring?

Note: I have changed the Sheet names as they relate to sensitive data. However an example is "S&C vendor1 "

Answer 1

Be sure to spell worksheet names properly:

Sub dural()
   Set wb = ActiveWorkbook
   wb.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
End Sub

There is no space in the default worksheet name.

Answer 2

Thanks for the help everyone. It turns out that I accidently had it inside a loop and must have been selecting multiple times and then ran out of range.

Thanks for all the help anyway.