I'm working with a vb macro that I use to export a sheet to pdf, then email it through outlook. I am looking to insert dates at the end of certain areas. I am able to use & Format(Date, "mm/d/yy") & to add a date to the end of my subject line. What I need now is to use something similar to add it to the end of my file name. I keep getting errors, so I'll show you the part of my code to be changed below. Let me know the simplest way to fix this with the code I already have. My goal is to end up with a file name like "Orders 12.10.15.pdf".

Sub EmailAsPDF()
ChDir "C:\Users\spec\Desktop\Orders"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\spec\Desktop\Orders\Order.pdf", OpenAfterPublish:=True
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object

Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments

Hello,

I'm not sure I completely understand what you would like to do. But this will take the cell you currently have selected, and copy/paste that cell into D10 of sheet 1:

ActiveCell.Copy Destination:=Sheets(1).Range("D10")