Excel - Crear libros con una macro

Hola que tal, tengo una duda y espero me puedan ayudar a disiparla.
La cuestión es: Como le puedo hacer para cear varios libros y que cada libro nuevo se llamé como el anterior pero con una secuencia númerica esto hecho en excel(en VBA), por ejemplo cuando abrimos un libro nuevo de excel por default el nombre del libro es Libro1 y si abrimos un segundo libro el nombre es Libro2 y así sucesivamente (Libro1.....Libron)

lo que yo quiero es abrir libros con un nombre x, por ejemplo Allsales2006, y que el siguiente sea Allsales2007 y que el siguiente sea Allsales2008, y así sucesivamente
(Allsales2006......Alsalesn)

Donde n represente la diferencia entre cada libro. Se como crear un libro con codigo, y tambien lo se guardar y cambiarle el nombre esto lo hago con el siguiente codigo:

With NewBook
'Creamos el nuevo libro con los siguientes datos
.Title = "All Sales"
.Subject = "Sales"
.SaveAs Filename:="C:\Documents and Settings\Mis Documentos\AllsalesPasado.xls"
End With

si me pudiaran Ayudar estaria muy agradecido con ustedes, de ante mano gracias por darse el tiempo de leer mi nota.

Atte: Edgardo

Prueba con esto para generar Loquesea1 a Loquesea3000

For i = 1 To 3000
NombreLibro = "Loquesea" & i

'Tu código

Next i
'
'
'
----------------------------------------------------------
Si quieres que sea Loquesea0001 a Loquesea3000

For i = 1 To 3000
Indice = i
While LEN(Indice)<4
Indice = "0"&Indice
Wend
NombreLibro = "Loquesea" & Indice

'Tu código

Next i

Saludos