VBA to Save Workbook as pdf

Jeremy, try:

Sub Create_PDF()
Dim MyFullName As String

Application.ScreenUpdating = False
MyFullName = Left(ThisWorkbook.FullName, InStr(1, ThisWorkbook.FullName, ".") - 1)
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFullName, _
  Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
  OpenAfterPublish:=True
Application.ScreenUpdating = True
End Sub