Wie ein Makro ?

Private Sub OptionButton12_Click()
Dim ab As String
ab = ActiveSheet.OptionButton12.Caption
With ActiveSheet
.Range("L20").Value = ab
Worksheets(ab).Range("C20:H33").Copy
.Range("L22").PasteSpecial Paste:=xlPasteValues
.Range("L22").PasteSpecial Paste:=xlPasteFormats
Worksheets(ab).Range("C18").Copy
.Range("N20").PasteSpecial Paste:=xlPasteValues
.Range("N20").PasteSpecial Paste:=xlPasteFormats
'-------- hier schützen ----------------
.Range("O22:Q35").Select
Cells.Locked = True               'schützen
End With
ActiveSheet.Range("L20").Select
Application.ScreenUpdating = True
End Sub

Da ich jede Menge dieser OptionButton habe, möchte ich gern ein ZentralMakro erstellen,
Wie ?
Hatte gedacht die Makros so lassen:

Private Sub OptionButton12_Click()
Dim ab As String
ab = ActiveSheet.OptionButton12.Caption
'---- jetzt hier das "Zentralmakro bis zum Rest
Call Zentral ...
End Sub

mfg Walter mb