I have 26 commandbuttons on Sheet2. I created each by copy & paste. This
caused the caption to be Commandbutton1 on all 26. I thought the following
code would change each, but it is not working. I get the following error and
the "&" sign is highlighted:

Compile Error Expected: expression

Here is the code:

Private Sub CommandButton27_Click()
Worksheets("Sheet2").Active
For k = 2 To 26
Commandbutton & k.Caption = "Commandbutton"&k
End Sub

Les

Maybe using this method.


For k = 2 To 26
ActiveSheet.OLEObjects("Commandbutton" & (k)).Object.Caption =
"Commandbutton" & k
Next


HTH,
Paul

--

"WLMPilot" wrote in message
...
I have 26 commandbuttons on Sheet2. I created each by copy & paste. This
caused the caption to be Commandbutton1 on all 26. I thought the
following
code would change each, but it is not working. I get the following error
and
the "&" sign is highlighted:

Compile Error Expected: expression

Here is the code:

Private Sub CommandButton27_Click()
Worksheets("Sheet2").Active
For k = 2 To 26
Commandbutton & k.Caption = "Commandbutton"&k
End Sub

Les