Hallo zusammen!

Ich brauche mal Eure Hilfe!
Ich habe eine Tabelle wo ich bestimmt Zeilen für einen Ausdruck ausblenden möchte und diese Seite dann ausdrucken kann.
Allerdings bekomme ich immer folgende Fehlermeldung:

Laufzeitfehler '1004':
Die Hidden-Eigenscjaft des Range-Objektes kann nicht festgelegt werden.

Code ist folgender:

Option Explicit

Private Sub CommandButton1_Click()
    With Me
            .Rows("3:44").Hidden = True
            .Rows("52:55").Hidden = True
            .Rows("59:74").Hidden = True
            .Rows("79:94").Hidden = True
            .Rows("99:114").Hidden = True
            .Parent.Sheets(Array("Mo", "Di")).PrintPreview
    End With
End Sub

Private Sub CommandButton2_Click()
    Rows("2:172").Select
    Range("N2").Activate
    Selection.EntireRow.Hidden = False
    Range("A1:A2").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim tmp, i As Integer, sum As Double
  If Target.Count = 1 Then
    On Error GoTo ErrExit
    Application.EnableEvents = False
    If Target <> "" Then
      Select Case Target.Column
        Case 3 To 12, 14  'C:L, N
          Select Case Target.Row
            Case 6 To 7
            
              tmp = Split(Target, ",")
              For i = 0 To UBound(tmp)
                If IsNumeric(tmp(i)) Then
                  sum = sum + tmp(i)
                Else
                  Select Case UCase(Trim(tmp(i)))
                    Case "H": sum = sum + 0.45
                    Case "D": sum = sum + 0.53
                    Case "T": sum = sum + 0.66
                    Case "M": sum = sum + 0.66
                  End Select
                End If
              Next
              Target = sum
          End Select
      End Select
    End If
    If Target.Column = 3 Then Target.Formula = "=" & Replace(Target.Value, ",", ".") & "*.9-K6"
    If Target.Column = 4 Then Target = Target * 0.9
  End If
ErrExit:
  Application.EnableEvents = True
End Sub

Habt Ihr eine Idee wie ich das lösen kann? Nutze Excel 2003.

Besten Dank schon einmal!