How can I make this work? I am creating a string of worksheets to be used in an array to copy. I guess it's not working because I am trying to pass a string into an array. I would probably need to create an array of sheets?
Cnter = Cnter + 1
If Cnter = 1 Then
strReport = """" & wks.Name & """"
Else
strReport = """" & wks.Name & """" & ", " & strReport
End If
Set wkbReport = wkbTmplt.Sheets(Array(strReport)).Copy