Error 9 en Tiempo de Ejecución

Holas Grupo, estoy tratando de ejecutar la siguiente macro y me sale Error 9
en Tiempo de Ejecución.

Sub Macro3()
Application.ScreenUpdating = False
Sheets("E.Cta.").Select
Sheets("E.Cta.").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Range("A1").Select
ActiveSheet.Shapes("Button 1").Select
Selection.Delete
ActiveSheet.Shapes("Button 3").Select
Selection.Delete
Application.ScreenUpdating = True
End Sub

Saludos,