New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Sub M_SaveAsMacroEnabled() Dim v_TempFilePath as String Dim v_TempFileName as String Dim v_FileExtStr as String Dim v_TimeStamp as String Dim v_ReqName as String v_ReqName = [RangeReqName].value v_Location = [RangeLocation].value v_DateYYMMDD = [RangeDateYYMMDD].value v_TimeStamp = [RangeTimeStamp].value v_TempFilePath = ActiveWorkbook.Path & "\" v_FileExtStr = ".xlsm" '//Save as macro-enabled workbook v_TimeStamp = Format(Now, "yymmddhhmm") v_TempFileName = "FirstPartOfMyFilename - " _ & v_ReqName & " - " _ '//Next Part of the filename & v_Location & " - " _ '//Yet another part & v_DateYYMMDD & " - " _ '//And another & v_TimeStamp '//Last part before extension '//Save new file// With ActiveWorkbook .SaveAs ThisWorkbook.Path & "\" & TempFileName & _ v_FileExtStr .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With 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.