With Workbooks

hola, domingo !

Tengo que usar este código para empezar a funcionar con el 2009 , con el volcado en un histórico (facturas_2009).
Existe alguna manera de simultanear el 2008 (facturas_2008) y el 2009, o que pida el dato del With Workbooks(). ? (variable?).

si suponemos que de la misma celda [B3] se puede tomar a que ejercicio corresponden los datos de la factura -???-
y que ambos libros ("facturas_2008" y "facturas_2009") estan abiertos en la sesion, prueba con algo +/- como lo siguiente:

With Worksheets("factura")
Datos_Factura = Array(.[b3], .[b2], .[b7], .[b8], .[d53], .[d54], .[d55], .[b4])
' para salvar la notacion de "mes" '
Mes = Evaluate("index({""enero"",""febrero"",""marzo"",""abril"",""mayo""," & _
"""junio"",""julio"",""agosto"",""septiembre"",""octubre""," & _
"""noviembre"",""diciembre""},month(" & .[b3].Address(, , , 1) & "))")
Ejercicio = Year(.[b3])
End With
' volcar los datos en el resumen de facturas '
With Workbooks("facturas_" & Ejercicio).Worksheets(Mes)
With .Range("a" & .Range("h" & Rows.Count).End(xlUp).Row)
.Offset(1).Resize(, 8) = Datos_Factura
End With
End With

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __
With Worksheets("factura")
Datos_Factura = Array(.[b3], .[b2], .[b7], .[b8], .[d53], .[d54], .[d55], .[b4])
'para salvar la notación de "mes" '
Mes = Evaluate("index({""enero"",""febrero"",""marzo"",""abril"",""mayo""," & _
"""junio"",""julio"",""agosto"",""septiembre"",""octubre""," & _
"""noviembre"",""diciembre""},month(" & .[b3].Address(, , , 1) & "))")
End With
'volcar los datos en el resumen de facturas '
With Workbooks("facturas_2008").Worksheets(Mes)
With .Range("a" & .Range("h" & Rows.Count).End(xlUp).Row)
.Offset(1).Resize(, 8) = Datos_Factura
End With
End With