| Home |
| Search |
| Today's Posts |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Button controls on worksheets
Hi Tom,
Thanks for you help! "Tom Ogilvy" wrote: Dim cBtn as MSForms.CommandButton vArr = Array("btn1", "btn2", "btn3", "btn4") Dim b as OleObject i = lbound(varr) for each b in ActiveSheet.OleObjects if type of b is msforms.commandbutton then set cBtn = b.Object cBtn.Name = vArr(i) i = i + 1 end if Next -- Regards, Tom Ogilvy "Anson" wrote in message ... I have a worksheet with 4 command buttons. I wrote a macro to copy the entire worksheet to a new workbook (along with the macros referring to the command buttons). However, once I have copied the worksheet, the name of the command buttons changed to "commandbutton1", "commandbutton2", ... etc. For that reason, it won't read the orginial macros anymore (because the codes were written for the buttons with the orginal names). How do I change them back to the orginal names? |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to Add NamedRange Controls to Worksheets? | Excel Worksheet Functions | |||
| Command Button Active X controls | Excel Discussion (Misc queries) | |||
| Controls in all worksheets are suddenly invisible | Excel Discussion (Misc queries) | |||
| Deleting worksheets containing ActiveX controls | Excel Programming | |||
| Programmatically Adding Controls (Macro) eg Button on A SpreadSheet | Excel Programming | |||
![Anson[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Threaded Mode
