Anweisungen in VBA verknüpfen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wks As Worksheet
Set Wks = ActiveSheet
Select Case Target.Address
Case "$C$25", "$F$25", "$I$25", "$L$25", "$C$34", "$F$34", "$I$34", "$L$34", "$C$43",
"$F$43", "$I$43", "$L$43", "$C$52", "$F$52", "$I$52", "$L$52"
Target.Offset(0, 1).Resize(8, 2).Locked = (Target = "CLOSED")
Case "$C$61", "$F$61", "$I$61", "$L$61"
Target.Offset(0, 1).Resize(7, 2).Locked = (Target = "CLOSED")
Case Else
End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wks As Worksheet
Set Wks = ActiveSheet
Dim Zelle As Range
Set Zelle = Range
' diese Zellen können "CLOSED" enthalten ("C25", "F25", "I25", "L25", "C34", "F34", "I34", "L34" _
, "C43", "F43", "I43", "L43", "C52", "F52", "I52", "L52", "C61", "F61", "I61", "L61")
If Zelle = "CLOSED" Then
Zelle.Font.Size = 20
Else
Zelle.Font.Size = 9
End If
End Sub