Seleccion De Hojas

[blopa35]

HOLA A TODOS, NECESITO AYUDA, TENGO ESTA MACRO

Sub Makro2()
Application.ScreenUpdating = False
Sheets(Array(1, 2, 3)).Select
Cells.Select
Selection.ClearContents
Range("a1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

MI PROBLEMA ES Q SI ELIMINO CUALQUIERA DE LAS HOJAS LA MACRO EM TIRA UN ERROR, Y SI AGREGO OTRA HOJA, LA MACRO NO SE APLICA A LA NUEVA HOJA, ESPERO SU AYUDA Y GRACIAS