Commandbutton Caption
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
|