We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Join the community of 500,000 technology professionals and ask your questions.