Giúp em in biên bản nghiệm thu tự động (2 người xem)

[vietthe6]

Em in biên bản bị lỗi này mong được các Anh, Chị Giúp
Compile error
Statement invalid outside type block

code
Private Sub CommandButton1_Click()
Dim Rf, Re, i As Long
Dim Buoc As Integer
Dim Rng As Range
Dim As String, ShAB As String, ShNB As String, ShYC As String


On Error Resume Next
If ComboBox1.Value = "" Or (CheckBox1 = False And CheckBox2 = False And CheckBox3 = False) Then
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("chuachon") & """,3)")
Exit Sub
End If


Select Case ComboBox3.Value
Case "CV"
ShAB = Sheet5.name
ShYC = Sheet4.name
ShNB = Sheet3.name
Case "VL"
ShAB = Sheet17.name
ShYC = Sheet4.name
ShNB = Sheet9.name
Case "BP"
ShAB = Sheet16.name
ShYC = Sheet4.name
ShNB = Sheet7.name
Case "TN"
ShAB = Sheet11.name

End Select

If IsNumeric(ComboBox1.Value) = False Or (IsNumeric(ComboBox2.Value) = False And Len(ComboBox2.Value) > 0) Then Exit Sub


If ComboBox1.Value <> "" And ComboBox2.Value = "" Then
If CheckBox1 = True Then
With Sheets(ShAB)
.Range("S1").Value = ComboBox1.Value
.Visible = xlSheetVisible
.PrintOut , , TextBox1.Value, , , , True
End With
End If
If CheckBox2 = True Then
With Sheets(ShYC)
.Range("S1").Value = ComboBox1.Value
.Visible = xlSheetVisible
.PrintOut , , TextBox1.Value, , , , True
End With
End If
If CheckBox3 = True Then
With Sheets(ShNB)
.Range("S1").Value = ComboBox1.Value
.Visible = xlSheetVisible
.PrintOut , , TextBox1.Value, , , , True
End With
End If
Sheets(ShAB).Visible = xlSheetVeryHidden
Sheets(ShYC).Visible = xlSheetVeryHidden
Sheets(ShNB).Visible = xlSheetVeryHidden



ElseIf ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
If CDbl(ComboBox1.Value) > CDbl(ComboBox2.Value) Then
Buoc = -1
Else
Buoc = 1
End If
For i = ComboBox1.Value To ComboBox2.Value Step Buoc
If CheckBox1 = True Then
With Sheets(ShAB)
.Range("S1").Value = i
.Visible = xlSheetVisible
.PrintOut , , TextBox1.Value, , , , True
End With
End If
If CheckBox2 = True Then
With Sheets(ShYC)
.Range("S1").Value = i
.Visible = xlSheetVisible
.PrintOut , , TextBox1.Value, , , , True
End With
End If
If CheckBox3 = True Then
With Sheets(ShNB)
.Range("S1").Value = i
.Visible = xlSheetVisible
.PrintOut , , TextBox1.Value, , , , True
End With
End If
Next
Sheets(ShAB).Visible = xlSheetVeryHidden
Sheets(ShYC).Visible = xlSheetVeryHidden
Sheets(ShNB).Visible = xlSheetVeryHidden
End If
Unload Me


End Sub

Fine: