Visual Basic - error 1004

ERROR '1004' EN TIEMPO DE EJECUCION:
FALLO EN EL MEODO SELECT DE LA CLASE 'RANGE'
HOJA.RANGE("A1:C12").SELECT
SELECTION.NUMBERFORMAT = "[$$-409]#,###.##;[Red][$$-409]#,###.##"
.
.
.
.
.
HOJA.RANGE("An:Cn").SELECT
SELECTION.NUMBERFORMAT = "[$$-409]#,###.##;[Red][$$-409]#,###.##"

SOLO PASA EN EL EVENTO SELECTION POR Q CUANDO MANDO LOS NOMBRES A LAS CELDAS
SIGUE NORMAL
HOJA.CELLS(1, 1).VALUE = "NOMBRE"
.
.
.
.
.
.
HOJA.CELLS(250, 1).VALUE = "NOMBRE" 'HASTA LA CELDA "A250"
Y CORRE SI NINGUN PROBLEMA

Y NO LO PUEDO HACER DE UN SOLO GOLPE POR Q DEPENDE DE LAS CELDAS EL
FORMATO QUE LLEVAN :-(

CREO Q SE SATURA LA MEMORIA Y POR ESO NO ME DEJA CONTINUAR ASI QUE ESPERO
QUE ME AYUDEN GRACIAS ADELANTADAS :-S