Cut Button Problem

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have an statement (see below) which delete all the buttons (button 13 &
button 14). The macro is running ok when I run the macro for first time,
however, when I run it for second time on the row the macro does not
recognize the button 13 and button 14.

I wonder if there is a way to have an statement where all the buttons will
be cut on specific sheet regarless the number its has. In another words
without mention button 13 & button 14.

Thanks in advance.
Maperalia


ActiveSheet.Shapes("Button 13").Select
Selection.Cut
ActiveSheet.Shapes("Button 14").Select
Selection.Cut
Range("C3").Select
 
statement where all the buttons will be cut

Activesheet.Buttons.Delete

--
Jim
|I have an statement (see below) which delete all the buttons (button 13 &
| button 14). The macro is running ok when I run the macro for first time,
| however, when I run it for second time on the row the macro does not
| recognize the button 13 and button 14.
|
| I wonder if there is a way to have an statement where all the buttons will
| be cut on specific sheet regarless the number its has. In another words
| without mention button 13 & button 14.
|
| Thanks in advance.
| Maperalia
|
|
| ActiveSheet.Shapes("Button 13").Select
| Selection.Cut
| ActiveSheet.Shapes("Button 14").Select
| Selection.Cut
| Range("C3").Select
|
 
Jim;
Thanks very much

Maperalia
Jim Rech said:
Activesheet.Buttons.Delete

--
Jim
|I have an statement (see below) which delete all the buttons (button 13 &
| button 14). The macro is running ok when I run the macro for first time,
| however, when I run it for second time on the row the macro does not
| recognize the button 13 and button 14.
|
| I wonder if there is a way to have an statement where all the buttons will
| be cut on specific sheet regarless the number its has. In another words
| without mention button 13 & button 14.
|
| Thanks in advance.
| Maperalia
|
|
| ActiveSheet.Shapes("Button 13").Select
| Selection.Cut
| ActiveSheet.Shapes("Button 14").Select
| Selection.Cut
| Range("C3").Select
|
Click to expand...
 
Back
Top