- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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
|HOW D I CLEAR PICTURES IN IMAGE CONTROL AND COMMENTS IN CELLS WHEN WORKBOOK IS OPENED||18||48|
|Excel - Scroll Speed||3||25|
|Macro to Send Appointment from Excel||1||29|
|Formula to convert ranked data||2||11|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!