User Form

Hello, people,

I have a user form ufCommands with more then 200 CommandButtons

And I have code for each Command button

By example:
Private Sub CommandButton252_Click()
flag_arrange = 1
'85 x 53 ÐÀÇÌÅÐ ÍÀ ÄÆÎÁÍÎ ÊÀËÅÍÄÀÐ×Å
'80 x 40 ÐÀÇÌÅÐ ÍÀ ÒÅÊÑÒÀ
'MsgBox ActiveShape.LeftX & " " & ActiveShape.CenterX
For X = 1 To 12
CommandButton251_Click
Next X
Me.Hide
CommandButton255_Click
CommandButton254_Click
mgroup.CenterX = mrect.CenterX
mgroup.CenterY = mrect.CenterY - 5.5 / 25.4
Set mgroup1 = ActiveLayer.Shapes.All.Group
For X = 1 To 4
Set mgroup1 = mgroup1.Duplicate(0, mgroup1.SizeHeight)
Next
Set mgroup1 = ActiveLayer.Shapes.All.Group
Set mgroup1 = mgroup1.Duplicate(mgroup1.SizeWidth, 0)
Set mgroup1 = ActiveLayer.Shapes.All.Group
mgroup1.CenterX = ActivePage.CenterX
mgroup1.CenterY = ActivePage.CenterY
Unload Me
End Sub

Code above is started when CommandButton252_Click
You can see, that CommandButton252_Click call
CommandButton251_Click
CommandButton255_Click
CommandButton254_Click

When I write this code many months ago it's simple to remember where this Command buttons are, but now i can not find  there.
To find CommandButton251 i use this code:
Private Sub CommandButton274_Click()
If COLORFLAG = 1 Then
MYCOLOR = CommandButton251.BackColor
'MsgBox MYCOLOR
CommandButton251.BackColor = vbBlack
COLORFLAG = 2
Else
'MsgBox MYCOLOR
CommandButton251.BackColor = MYCOLOR
COLORFLAG = 1
End If
End Sub

The meaning of the above code is that when the first time it is launched the background color of the search button becomes black and this is clearly visible. When the code is run again, the background color of the searched button becomes what it was at the beginning.

Please help to improve this code. 
How to find CommandButton254, CommandButton255 in one other, more improved way?

Thanx!