Commandbutton Caption
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 |
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 |
All times are GMT +1. The time now is 11:59 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com