PDA

View Full Version : Save as to 2003 .xls



Frank Rizzo
01-06-2012, 10:58 AM
Hello all and hope you all had a wonderful Holiday Season,

Not a programer as many of you are, can someone tell me if the code below will make certain that if opened in any version of excel, will always save as 2003 .xls file?

Thanks Guys and Girls.

-Frank.


Private Sub CustomSave(Optional SaveAs As Boolean)
Dim ws As Worksheet, aWs As Worksheet, newFname As String
Application.ScreenUpdating = False
Set aWs = ActiveSheet
Call HideAllSheets
If SaveAs = True Then
newFname = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
If Not newFname = "False" Then ThisWorkbook.SaveAs newFname
Else
ThisWorkbook.Save
End If
Call ShowAllSheets
aWs.Activate
Application.ScreenUpdating = True
End Sub

Frank Rizzo
01-06-2012, 12:06 PM
Thanks I have my answer