Run time error 1004

[Richard123]

I have created the following VBA using a macro function in Excel which runs fine. When copying it across to a button in the application I get the following error. Any ideas?

Sheets("foodhistory").Select
Rows("1:46").Select
Selection.insert Shift:=xlDown

Run time error 1004. Select method of Range class failed

 

[Lewiy]

Try this:

Sheets("foodhistory").Select
Sheets("foodhistory").Rows("1:46").Select
Selection.Insert Shift:=xlDown

You just need to specify the worksheet you are referring to because when using Private Subs behind Command Buttons, it will assume that you are referring to the sheet on which the button is placed unless otherwise stated.

 

[Norie]

Try this, there's no need to select.

Sheets("foodhistory").Rows("1:46").Insert Shift:=xlDown