VBA to File SaveAs

[Zaigham]

Hi,
I need a VBA to save my excel files with a different name.

Thanks in advance

Zaigham

 

[VoG]

Try

Sub SaveMe()
Dim fName As Variant
fName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Save As")
If fName = False Then Exit Sub
If CInt(Application.Version) < 12 Then
    ActiveWorkbook.SaveAs Filename:=fName
Else
    ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=52
End If
End Sub

 

[Zaigham]

Dear Peter Sir,

First "error removed macro" works fine. Second one also works fine. However, when I used it on a macro enabled worksheet in Excel 2010 it saved it in Excel worksheet 1997-2003.

Bundle of thanks for devotion and your valuable work which works fine.

Sincerely,
Zaigham

 

[VoG]

Maybe this

Sub SaveMe()
Dim fName As Variant, i As Long
fName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Save As")
If fName = False Then Exit Sub
If CInt(Application.Version) < 12 Then
    ActiveWorkbook.SaveAs Filename:=fName
Else
    i = InStrRev(fName, ".")
    fName = Left(fName, i) & "xlsm"
    ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=52
End If
End Sub

 

[Zaigham]

Dear Sir,

This macro works fine as saves file in its original version.

Thanks a lot.

Zaigham