Print Multiple Sheets Dynamically based on Userform Listbox Selections

[brenner]

I'm trying to pass an array of sheet names through the printout method, but keep receiving a fatal error that crashes excel. I have verified that each sheet exist in the active workbook. Additionally, if I replace the variable PrintArray with the values ("GG","N3","Z.2"), the code will run.

Any thoughts are greatly appreciated.


Error Message:
"Automation error
Exception occurred."

Line where code errors:
Sheets(Array(PrintArray).PrintOut

Array Values when code errors:
PrintArray(0) = "GG"
PrintArray(1) = "N3"
PrintArray(2) = "Z.2"

 

[sriram170]

i hope so u can use the FOR loop to print sheets or print odd number sheets or print all sheets from 2 sheet just amend the code

'the below is to print all sheets
for i = 1 to sheets.count
sheets(i).print
next

'the below is to print from 3 sheets
for i = 3 to sheets.count
sheets(i).print
next