hi
I need helping to fix this error "type mismatch "in this line
PrintArray = Split(inRange, ",")thanks
Excel VBA Course - From Beginner to Expert
200+ Video Lessons
50+ Hours of Video
200+ Excel Guides
Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)
print specific sheets based on range into column
0
Answers
0
Selected Answer
Leopard
The VBA function SPLIT converts a string into an array (using a separator, like a comma) but you're trying to split a range (so you get an error).
You can get a 1-D array from a vertical range using TRANSPOSE instead (see bold like below) but your named range ALLSHEETS contains many blank entries (so I added a check on that (also in bold) in the revised code below since Excel won't actually find sheets with the user name "" and so fail:
Sub newprint()
Dim PrintArray As Variant, I As Integer
PrintArray = Application.Transpose(Range("ALLSHEETS"))
For I = LBound(PrintArray) To UBound(PrintArray)
If PrintArray(I) <> "" Then
Sheets(PrintArray(I)).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End If
Next
End Sub