I am currently using this code,...
Dim SaveStr As Variant
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Input") 'change as needed
SaveStr = False
Do Until SaveStr <> False
SaveStr = Application.GetSaveAsFilename(CurDir & "\LOT # " & ws.[LotNumber] & " - CUST # " & ws.[CustomerNumber] & " - " & ws.[CustomerName] & ".xlsm", "Excel Workbooks (*.xlsm), *.xlsm", , _
"Select file name and folder:")
If SaveStr = False Then
MsgBox "Please make a selection!", vbCritical
But I ran into two issues, and I don't know my way out of it.
Issue 1 - "CustomerName", needs to be converted to UPPER CASE. I know in Excel you just use something like this "=UPPER(A1)" - but with this code, I'm unsure of how to do it.
Issue 2 - When you run the code, and you are at the save dialog window - if the user then decides they don't want to save, they would click on "Cancel" - but doing so shows the error message "Please make a selection!", then it goes back to the save dialog window.
When I ran into this issue, I actually couldn't figure out how to stop it - so I had to force close excel.
Thank you in advance for your help!