Insert counter for macro name tracking vba

Question

\' How to make commandButton1..5 names executable within a loop from a single Sub _Click routine??

Private Sub CommandButton1_Click() \'--> CALL MACRO
Acti