2 Macro Issues
Sub SaveAsFile: I have the same macro for a PDF conversion, and it works. For whatever reason, when I use the below, it doesn't save the excel macro enabled workbook to the same path the file is in. Once I get the SaveAsFile done, I want to add another macro at the bottom that saves the excel in the same location with the current date at the end upon opening.
Thanks!
Code
Sub SaveAsFile()
'
' SaveAsFile Macro
WBPath = ActiveWorkbook.Path
WBName = Replace(ActiveWorkbook.Name, ".xlsm", "")
CustomerName = ActiveSheet.Range("B1").Text
PricingAnalysis = ActiveSheet.Range("B3").Text
currentDate = Format(Date, "MM.DD.YYYY")
newFullPath = WBPath & "\" & WBName & " " & currentDate & ".xlsm"
ActiveWorkbook.SaveAs Filename:=CustomerName & "_" & PricingAnalysis & "_" & currentDate & ".xlsm"
'FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
**Commented out as of now because the top macro won't work correctly**
'Private Sub Workbook_Open()
'Call SaveAsFile
'End Sub
Display More