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" <(E-Mail Removed)> wrote in message
news:2E7EDE29-2781-49A8-9762-(E-Mail Removed)...
>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