Win 98 Probleme nach Makroausführung

Private Sub CommandButton1_Click()
Const Ws_Druck As String = "Drucken"
Dim C As Range
Dim intRow As Integer
Dim strCheck As String
With Worksheets(Ws_Druck)
strCheck = MsgBox(" Tratte in Zusatzzufuhr eingelegt? ", vbOKOnly + vbQuestion, "Achtung!")
strCheck = MsgBox("Es werden insgesamt " & Application.Sum(.[c7:c30000]) & _
" Ausdrucke erstellt. Jetzt drucken?", vbYesNo + vbQuestion, "Druckanzahl bestätigen...")
If strCheck = vbNo Then Exit Sub
On Error Resume Next 'quick and dirty
For intRow = 1 To ThisWorkbook.Sheets.Count
If .Cells(intRow + 6, 3) <> "" Then
Worksheets(CStr(.Cells(intRow + 6, 2))).PrintOut copies:=.Cells(intRow + 6, 3)
End If
Next intRow
On Error GoTo 0
End With
End Sub

Private Sub Worksheet_Activate()
Dim i As Integer
Dim ws As Worksheet
Range("B7:B60000").ClearContents
i = 7
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Drucken" And ws.Name <> "Vorlage" Then
Cells(i, 2) = ws.Name
i = i + 1
End If
Next ws
End Sub