VBA mit CommandButton verbinden

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZ As Long
If Intersect(Target, Range("C7")) Is Nothing Then Exit Sub
For lngZ = 12 To 150              ' in Zeilen 12:150
Select Case Cells(lngZ, 1)   ' prüfe Spalte A
Case "":    ' nichts tun
Case 0:     Rows(lngZ).Hidden = True
Case 1:     Rows(lngZ).Hidden = False
Case Else:  ' nichts tun
End Select
Next lngZ
End Sub