Macro Print Out

[dennisli]

What’s wrong with the code “ sheets(array(sheets(1),csheet))” in the following Macro:

Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range
Dim cSheets As Integer
Dim sSheets() As String
Dim i As Integer


Windows("Test.xls").Activate
Set wb = ActiveWorkbook
cSheets = wb.Sheets.Count
ReDim sSheets(1 To cSheets)

For i = 1 To cSheets
Sheets(i).Select
Sheets(i).PageSetup.RightHeader = "&""Arial,Italic""&6" & ActiveWorkbook.FullName & Chr(10) & Now()
Next

Sheets(Array(Sheets(1), cSheets)).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

 

[earlyd]

You have two items inside the parenthesis for the sheets property - it should only be one; either a number or a name.