MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub Save_File() ' ' Save_File Macro Dim ActSheet As Worksheet Dim ActBook As Workbook Dim CurrentFile As String Dim NewFileType As String Dim NewFile As String Application.ScreenUpdating = False ' Prevents screen refreshing. CurrentFile = ThisWorkbook.FullName [b] NewFileType = "Excel Files 1997-2003 (*.xls), *.xls," & _ "Excel Files 2007 (*.xlsx), *.xlsx," & _ "All files (*.*), *.*"[/b] [b]NewFile = Application.GetSaveAsFilename( _ InitialFileName:=NewFileName, _ fileFilter:=NewFileType)[/b] If NewFile <> "" And NewFile <> "False" Then [b] ActiveWorkbook.SaveAs Filename:= NewFile, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, _ ReadOnlyRecommended:=False, _ CreateBackup:=False [/b] Set ActBook = ActiveWorkbook Workbooks.Open CurrentFile ActBook.Close End If Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|VBA how to use Like operator with phrasal verb?||4||23|
|why PtrSafe before Function on 64bit does not fix the APIs?||2||20|
|need help to look for||16||38|
|Sharepoint list value updated via access or Excel||3||22|
Join the community of 500,000 technology professionals and ask your questions.