Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Sub BuildFileNameAndSave() 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 End If Loop ThisWorkbook.SaveAs SaveStr End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.