Form Buttons to Control Box Buttons

[southpaw163]

I have a spreadsheet that currently has Buttons made from the Form Toolbox, that I would like to switch to Buttons made from the Control Toolbox. I'm having problems transfering the code from a button that adds a row in my spreadsheet. Everytime I copy the code over it gives me an error in the code. The code is:
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Rows("7:7").Select
Selection.Insert Shift:=xlDown
Sheets("Hide").Select
Rows("15:15").Select
Selection.Copy
Sheets("Preliminary").Select
ActiveSheet.Paste
Range("C7").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

The error it highlights is Rows("15:15").Select. But the macro works just fine when assigned to the Form Toolbox Button. Is there something I'm over looking? Is there any easy way to fix this problem so I can get rid of my Form Toolbox Buttons?

 

[Norie]

When you use buttons from the Control Toolbox then you can have problems if you use select in the code.

Try this.

Application.ScreenUpdating = False
ActiveSheet.Unprotect
ActiveSheet.Rows("7:7").Insert Shift:=xlDown
Sheets("Hide").Rows("15:15").Copy
Sheets("Preliminary").Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

 

[southpaw163]

I'm sorry but I don't know much about code at all, but now I get an error at:

Sheets("Preliminary").Paste

of the code

Application.ScreenUpdating = False
ActiveSheet.Unprotect
ActiveSheet.Rows("7:7").Insert Shift:=xlDown
Sheets("Hide").Rows("15:15").Copy
Sheets("Preliminary").Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Anyone have any ideas on this?

 

[Datsmart]

You may want to consider using AutoShapes as buttons. You assign macros to them exactly like you do Forms buttons, but you have the option to change color, text color, shadow, etc.

From the Drawing Tool Bar, choose AutoShapes | Basic Shapes | Bevel
Drag your button size on the sheet. Right Click to adjust properties and Assign to the Macro of your choice.

No need to use design mode with this button. Easy to change color and font, just right-click and choose Format AutoShape...

 

[Norie]

Can you explain what the code should do?

What I posted was solely based on that you posted.

And it wasn't clear from that where you wanted to copy to.