I know that this is everyones favorite subject

What I need to do is convert a single sheet in my workbook to PDF using Primo PDF, ans save that (the PDF) to a File Path and Folder specified within a cell in the workbook.

Here is what I have so far:

    Path = Application.Range("FilePath").Value
    Folder = Application.Range("ProgramName").Value
    File = Application.Range("ProgramName").Value
        On Error Resume Next
        ActiveWorkbook.SaveAs Filename:= _
            Path & Folder & "\" & File, FileFormat:=xlNormal _
            , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        On Error GoTo 0
    Application.ActivePrinter = "PrimoPDF on Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PrimoPDF on Ne00:", Collate:=True

I modified the code that I found here http://www.mrexcel.com/board2/viewtopic.php?t=234661 to come up with what I have now.

However, this does not seem to be working for me. All I am doing is printing via Primo PDF( converting to PDF). It is not saving the file where I specified. It is asking me where I want to save it to.

Can anyone Help me please?!?!?!?