Select Case ini Case ini .Caption = Range("AbwK" & ini) ' Beschriftung RK_1 ist der Bereichsname .OnAction = "Makro" & ini ' Aktion End Select