Test this one Veronica

Check the path and sheet name here before you run the macro

FilenameStr = "C:\My Documents\Cust Maint\RFQ to Admin\" & _
Sheets("Order").Range("B4") & ".pdf"


Sub RDB_PDF_ActiveSheet_Test()
Dim FilenameStr As String

If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
& Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") < "" Then

FilenameStr = "C:\My Documents\Cust Maint\RFQ to Admin\" & _
Sheets("Order").Range("B4") & ".pdf"

Sheets("RFQ").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=FilenameStr, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "You can find the PDF file here : " & FilenameStr

Else
MsgBox "PDF add-in Not Installed"
End If
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Veronica Johnson" wrote in message ...
On Jan 25, 4:08 pm, "Ron de Bruin" wrote:
Do you want to create the folder ?

Where ?

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm



"Veronica Johnson" wrote in ...
Hi again,

I have 6 sheets in my workbook. I want to save the sheet called "RFQ"
as a PDF, copy it to a new folder called "RFQ to Admin" and then name
the file as whatever company I have listed on the Order worksheet in
cell B4. Is this possible, or am I out of control? <g- Hide quoted text -

- Show quoted text -

Yes, I have already created the folder in My DocumentsCust Maint on
the C: drive.