CommandButton per Mausklick benennen

Public Function SetTheButtonsUp()
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim s As Shape
  Dim i As Integer
      'Hier entsprechend anpassen  
    Set wb = ActiveWorkbook
    Set ws = ActiveWorkbook.Sheets("Tabelle1")  
    i = 1
      'Alle Elemente im Sheet durchlaufen...  
    For Each s In ws.Shapes
        '...und schauen ob es sich um ein "xlButtonControl" handelt  
      If s.FormControlType = xlButtonControl Then
        'so und hier könnte es kniffelig werden. Hier mal der einfachste Weg.  
        s.Name = "Platz_" & i  
        s.TextFrame.Characters.Text = i
          'GGfls. noch zu einem eigenen Click-Handler verweisen  
        's.OnAction = "Platz_' & i ' & '_OnClick'"  
        i = i + 1
      End If
    Next
    Set ws = Nothing
    Set wb = Nothing
End Function