All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
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
|SUM every other column||10||39|
|Excel 2010 - Text not aligning at bottom of cell!||5||16|
|How do I update en Excel formula to include the woksheet name?||2||19|
|Is there any risk my Excel 2007 workbook is corrupted when it suddenly begins being saved as xlsx when always earlier always being saved as xlsm?||2||13|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!