Selecting and printing multiple pages in Excel using VB Script

[SirMikesALot]

I'm pretty good at Excel, but my skills in Visual Basic are very limited. I found script on-line that creates & opens a user form, allows you to select your worksheets, prints the selected worksheet, and then deletes the user form. I tried running it, but I keep on getting a "Run-time error '1004'". Do you have any suggestions on how to fix it? Here's the script and thank you in advance:

Sub SelectSheets()
Dim i As Integer
Dim TopPos As Integer
Dim SheetCount As Integer
Dim PrintDlg As DialogSheet
Dim CurrentSheet As Worksheet
Dim cb As CheckBox
Application.Scr eenUpdating = False

' Check for protected workbook
If ActiveWorkbook. ProtectStructur e Then
MsgBox "Workbook is protected.", vbCritical
Exit Sub
End If

' Add a temporary dialog sheet
Set CurrentSheet = ActiveSheet
Set PrintDlg = ActiveWorkbook. DialogSheets.Ad d

SheetCount = 0

' Add the checkboxes
TopPos = 40
For i = 1 To ActiveWorkbook. Worksheets.Coun t
Set CurrentSheet = ActiveWorkbook. Worksheets(i)
' Skip empty sheets and hidden sheets
If Application.Cou ntA(CurrentShee t.Cells) <> 0 And _
CurrentSheet.Vi sible Then
SheetCount = SheetCount + 1
PrintDlg.CheckB oxes.Add 78, TopPos, 150, 16.5
PrintDlg.CheckB oxes(SheetCount ).Text = _
CurrentSheet.Na me
TopPos = TopPos + 13
End If
Next i

' Move the OK and Cancel buttons
PrintDlg.Button s.Left = 240

' Set dialog height, width, and caption
With PrintDlg.Dialog Frame
.Height = Application.Max _
(68, PrintDlg.Dialog Frame.Top + TopPos - 34)
.Width = 230
.Caption = "Select sheets to print"
End With

' Change tab order of OK and Cancel buttons
' so the 1st option button will have the focus
PrintDlg.Button s("Button 2").BringToFron t
PrintDlg.Button s("Button 3").BringToFron t

' Display the dialog box
CurrentSheet.Ac tivate
Application.Scr eenUpdating = True
If SheetCount <> 0 Then
If PrintDlg.Show Then
For Each cb In PrintDlg.CheckB oxes
If cb.Value = xlOn Then
Worksheets(cb.C aption).Select Replace:=False
End If
Next cb
ActiveWindow.Se lectedSheets.Pr intOut copies:=1
ActiveSheet.Sel ect
End If

Else
MsgBox "All worksheets are empty."
End If


' Delete temporary dialog sheet (without a warning)
Application.Dis playAlerts = False
PrintDlg.Delete

' Reactivate original sheet
CurrentSheet.Ac tivate
End Sub