Yes it is Excel 2007, in previous versions, you have to install a PDF
writer, and then print the sheet using the PDF writer.

To save the sheet this should do it then:

MyPath = "C:\temp\"
MyFileName = "Report" & Range("A1").Value & ".xls"

Sheets("Report").SaveAs Filename:=MyPath & MyFileName

Regards,
Per



"EricG" skrev i meddelelsen
...
Is this Excel 2007? It didn't work for me and I'm running 2003.

.ExportAsFixedFormat Type:=xlTypePDF

Eric