MarkReddell
Board Regular
- Joined
- Sep 1, 2011
- Messages
- 210
- Office Version
- 365
- Platform
- Windows
- Mobile
Hello Exceler's,
I need some help with this vba code. Any help will greatly appreciated!!!
Everything works but the pdf code.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
Sheets("Solve For Supplements").Select
Call Sort1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Sheets("Solve For Supplements").Range("Y1") & Sheets("Solve For Supplements").Range("AB2").Value
ActiveWorkbook.SaveAs FileName:=Sheets("Solve For Supplements").Range("Y1") & Sheets("Solve For Supplements").Range("Y2").Value & ".xlsm"
MsgBox ("This File has Been Saved on our OneDrive in the Spreadsheet Folder Under the Current Report Date, Rep Name, and Customer's Name! If You Have any Questions or Concerns About this File: Call Mark Reddell at: !!!")
End Sub
I need some help with this vba code. Any help will greatly appreciated!!!
Everything works but the pdf code.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
Sheets("Solve For Supplements").Select
Call Sort1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Sheets("Solve For Supplements").Range("Y1") & Sheets("Solve For Supplements").Range("AB2").Value
ActiveWorkbook.SaveAs FileName:=Sheets("Solve For Supplements").Range("Y1") & Sheets("Solve For Supplements").Range("Y2").Value & ".xlsm"
MsgBox ("This File has Been Saved on our OneDrive in the Spreadsheet Folder Under the Current Report Date, Rep Name, and Customer's Name! If You Have any Questions or Concerns About this File: Call Mark Reddell at: !!!")
End Sub
Last edited by a moderator: