using VBA in Excel, I'd like to be able to add an additional name to the file when saving as Cute PDF

Can you post the code that you've got now?

This might be a start:

ActiveWorkbook.SaveAs Filename:="Drive:\Path\" & Format(Date, "DDDD, MM-DD-YYYY")

HTH,

SmittyPro:
Here's that part of the code:
LinePDF:
Range(Cells(1, 1), Cells(DFND, 78)).Select
With Selection
    Application.ActivePrinter = "CutePDF Writer on CPW2:"
    Selection.PrintOut Copies:=1, Collate:=True
    ActiveSheet.PageSetup.PrintArea = ""
End With
'

Check out Malcom's code on setting printer selections:

http://www.vbaexpress.com/kb/getarticle.php?kb_id=528

If I understand you, if the user selects the PDF option, they should be able to browse to where to save the document; if they go the workbook route, it should be saved where you specify?

Here's some code that covers the GetSaveAsFileName method, which will let you set the default file path and name, but still let the user change it.  You can tie that to the PDF portion.  If it's not the PDF selection you can just use the code I posted earlier to directly save it without user input.

Sub GetSaveAsFileName()
    Dim FileName As Variant
    Dim Filt As String, Title As String
    Dim FilterIndex As Long, Response As Long
    '   Set to Specified Path\Folder
        ChDir "C:\Documents and Settings\All Users\Desktop\"
    '   Set File Filter
        Filt = "Excel Files (*.xls), *.xls"
    '   Set *.* to Default
        FilterIndex = 5
    '   Set Dialogue Box Caption
        Title = "Please select a different File"
    '   Get FileName
        FileName = Application.GetSaveAsFileName(InitialFileName:=Range("A1"), FileFilter:=Filt, _
            FilterIndex:=FilterIndex, Title:=Title)
    '   Exit if Dialogue box cancelled
        If FileName = False Then
            Response = MsgBox("No File was selected", vbOKOnly & vbCritical, "Selection Error")
            Exit Sub
        End If
    '   Display Full Path & File Name
        Response = MsgBox("You selected " & FileName, vbInformation, "Proceed")
    '   Save & Close Workbook
        With ActiveWorkbook
            .SaveAs FileName
            .Close
        End With
            
End Sub

Select allOpen in new window

The  problem is that cute PDF is what is displaying the save as dialog box to save the PDF file name and not Excel.  It defaults to the name of the excel spreadsheet.  Excel VBA cannot really control that save as box at all.  One option is to save the workbook as a new file with the information you want (See SmittyPro's first post).  Another option is to upgrade your version of office as office 2007 and office 2010 both have built in PDF converters.  

-Bear

You might want to check out Ken Puls' PDF article, although it doesn't apply to CutePDF, it might give you some good ideas on the naming part:

http://www.excelguru.ca/node/21

Thanks