Range Error

[CW-NEN]

I have been using this code in a macro for a while. Today I switched it to a command button. Now I get this error:

"Run time error '1004'
Select Method of Range class failed"

Please Help.

Private Sub CommandButton4_Click()
'   Add City
    Sheets("Budget Price").Select
    ActiveSheet.Unprotect Password:="password"
-->  Range("A21").Select
    Selection.EntireRow.Insert
    Sheets("City List").Select
    Selection.Copy
    Sheets("Budget Price").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True, Password:="password"

End Sub

Thanks

 

[dave3009]

Did you try putting

ActiveSheet.

In front of it. Better still reference the sheet or use With.

HTH


Dave

 

[dave3009]

This is a bit cleaner

Private Sub CommandButton4_Click()
'   Add City
    Sheets("Budget Price").Select
    ActiveSheet.Unprotect "password"
    ActiveSheet.Range("A21").EntireRow.Insert
    Sheets("City List").Copy
    Sheets("Budget Price").PasteSpecial
    Application.CutCopyMode = False
    ActiveSheet.Protect "password"

End Sub

 

[CW-NEN]

Thanks, that worked

 

[dave3009]

I'm glad it works for you.

All the very best

Dave