Macro copia pega que no funciona

Buenas!

Para algunos de vosotros la siguiente consulta será muy sencilla pero es
algo que no logro solucionar, a ver si me podeis ayudar.

Tengo una macro tal que:

Private Sub CommandButton30_Click()

Worksheets(1).Visible = True

Workbooks.Open Filename:="F:\DIRECTORIO\LISTADOS\5024.xls"
ActiveWorkbook.Sheets(Array(2)).Select
ActiveSheet.Activate
Range("E2", "F15000").Select
Selection.Copy

Windows("Plantilla_act_news_BETA 3.xls").Activate
ActiveWorkbook.Sheets("Matriz").Activate
ActiveSheet.Paste Destination:=Worksheets("Matriz").Range("A2")

Application.DisplayAlerts = False
Workbooks("5024.XLS").Close SaveChanges:=False

ActiveSheet.Visible = False
End Sub


Cuando estaba creando la macro todo ok, cierro el libro, lo guardo y al
abrirlo de nuevo para probar la macro me da error. ¿Alguna idea o ejemplo?.

Muchas gracias.

Mk