Macro has a compile error and cant work out why

[ghrek]

Hi

I have the following macro and keep getting a compile error.

Any Ideas?


Sub test()

Dim sName As Variant, bFolder As String, dest As String

sName = InputBox("Subfolder name")
If sName = "" Then Exit Sub

bFolder = "X:\backup"


If Dir(bFolder & "" & sName, vbDirectory) = "" Then
MkDir bFolder & "" & sName
End If

dest = bFolder & "" & sName

ActiveWorkbook.Sheets(Array("Week1", "Week 2", "Week 3", "Week 4” "Period Summary", "Sheet1")).Copy

ActiveWorkbook.SaveAs dest & "\NewWorkbook", ActiveWorkbook.FileFormat

End Sub

 

[shg]

VBA uses straight quotes, and you're missing a comma after "Week 4"

ActiveWorkbook.Sheets(Array("Week1", "Week 2", "Week 3", "Week 4", "Period Summary", "Sheet1")).Copy

 

[Marcelo Branco]

This is wrong
ActiveWorkbook.Sheets(Array("Week1", "Week 2", "Week 3", "Week 4” "Period Summary", "Sheet1")).Copy

and missing a comma (,)

Maybe...

ActiveWorkbook.Sheets(Array("Week1", "Week 2", "Week 3", "Week 4[B][COLOR=#ff0000]",[/COLOR][/B] "Period Summary", "Sheet1")).Copy

M.