Using Variables Within Button Actions

[PersonMan]

I am using a large number (21 presently, growing later) of buttons on one particular sheet,
and rather than specifying B1.Visible = False .. B21.Visible = False, can I use a For statement somehow?

For Butt = 1 To 21
    ("B" & Butt).Visible = False
End For

Also, all these buttons will be assigned variables based on their unique functions before referincing a generic function. i.e.

'Each Button pressed disables the previous button

("B" & (Butt - 1)).Enabled = False

Is there anyway to do this, or am I going to have to do it the long way, of copy and paste 21 times and renaming?

Any assistance available?

Thanks!

[romperstomper]

Are you talking about Forms buttons or ActiveX ones? The answers will be quite different for each.

[PersonMan]

ActiveX. I know VBA is limited in its capacity, wondering if its even possible to take shortcuts like those?

[romperstomper]

For the visibility, it's pretty straightforward:

For Butt = 1 To 21
    Me.Shapes("B" & Butt).Visible = False
Next Butt

assuming the code is in the worksheet code module. (If not, replace Me with the relevant worksheet)

For the click coding, you would basically need to have a routine that accepts an index number and then each button click would be:

Private Sub B2_Click()
   SomeMacro 1
End Sub

for example.
With Forms buttons it would be easier as you could include the number argument in the OnAction string, or have the macro check the shape name using Application.Caller.

For the record, VBA is not that limited.

[PersonMan]

The Me.Shapes worked fine for Visible! Thanks for that.

But what code can you use for enabled? It says Object doesn't support this proerty or method.

I figure Me.Shapes is the incorrect part? What should I change that to?

How about refering to variables? i.e. I want at least 21 variables of each type.

Could I do something like

For Vary 1 To 21
Dim Sales(Vary) As Integer
Dim String(Vary) As String
Next Vary