Saving excel sheet into a .PDF using macro.

[Luke1690]

Hi All,

i want to save a excel sheet call ("Mon") in a specific location with a file name picked form a range.

i used the below code to do this and it worked fine once. Now it saves it into my documents instead of the file location.

Sub SaveActiveSheetsAsPDF()

'Create and assign variables
Dim saveLocation As String
saveLocation = "EnterLocationHeref"

'Save Active Sheet(s) as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Sheets("mon").Range("ac3").Value
End Sub

Can anyone tell me where I'm going wrong?

Thanks Guys

 

[bobsan42]

I don't see saveLocation in the Filename.
something like:

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation & "\" & Sheets("mon").Range("ac3").Value

 

[Luke1690]

I don't see saveLocation in the Filename.
something like:

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation & "\" & Sheets("mon").Range("ac3").Value

Thanks Bob,

worked Perfect