Imprimir y abrir '.pdf'

Hola a tod@s...
Después de conseguir, por código, que se me imprimiera/guardara una hoja
excel en pdf (mediante cutePDF Writer), gracias a Hector Miguel en su
contestación a Jon del 20/11/2007, me encuentro la siguiente dificultad...

Mediante este código:
Sub Macro()
Name = "C:\Conta\Ventas\" & [E5] & ".PDF" 'Nombre pdf
Application.ActivePrinter = "CutePDF Writer en CPW2:" 'Activa el CutePDF
Writer
ActiveWindow.SelectedSheets.PrintOut PrintToFile:=True,_
PrToFileName:=Name 'para guardar pdf
End Sub
...
donde en la celda [E5] está el nombre que quiero dar al fichero.pdf ,
creo/guardo el fichero.pdf ...

Crearlo, lo crea, pero cuando quiero abrirlo con el Adobe Acrobat Reader, me
sale el siguiente mensaje de error ...
"Abobe Reader no pudo abrir 'fichero.pdf'.debido a que no es un tipo de
archivo admitido o está dañado (por ejemplo, se envió como adjunto de correo
electrónico y no se descodificó correctamente. ACEPTAR"
y fin, no se puede abrir ...
En cambio si el proceso lo hago "a manita" si reconoce el pdf creado...

Solicito vuestra ayuda
GRACIAS de antemano por ella...
SALUDOS.