Save as Pdf

[besis]

Hi,

I have recorded a macro for saving my sheet as pdf. with the same name of my Excel workbook.
I would like macro to ask me with comment box to put the name of the file before it saves it to my desktop.

Sub SaveasPdf()
'
' SaveasPdf Makro
'

'
Range("A1:F1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\user1\Desktop\NAME .pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Thanks for any help I can get.
B.

[davesexcel]

Try this, I had to change the folder location so it would work for me, change it back for your locations.

Please Login or Register  to view this content.

[besis]

Hi,

I tried this method and I get Run-time error '1004': Application defined or object defined error.

I was thinking also is it possible that for saving the pdf. the path would be ThisPC\Desktop (not under user)

Thanks for the help.
B.