Creating PDF naming from cell and attaching to an email

[Dev Patel]

Hi All,

I am stuggling to name the converted pdf from a cell (B24) and attaching that pdf to an email (outlook 2003). I have code below which creates pdf (have to manually type in file name) but it adds spreadsheet. It gives me email address and subject which is great.

Please can someone help with this problem.

Thanks
Dev

'Convert to PDF
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF", Collate:=True
Application.DisplayAlerts = True

'Send email
Application.Dialogs(xlDialogSendMail).Show arg1:=(Worksheets(Range("C24").Value).Range("A1").Value), _
arg2:=(Worksheets(Range("C24").Value).Range("B23").Value & " - " & Range("A21").Value)