Name für Schaltfläche

Sub möchte ich eine bestimmte Zelle anwählen.
Aber ich möchte diese 

Sub auch mit anderen Optionsfeldern ausführen können.
Also Optionsfeld 32, Optionsfeld 33....
Wie kann ich das erreichen?


Sub Einzeldruck()
Dim a As Integer
a = Sheets(2).Shapes("Optionsfeld 31").TopLeftCell.Row  'Name: Einzeldruck
Range("D" & a - 2).Select
End Sub


Gruß Reinhardt.