just tried, that don't seem to work but if you play around a little with
the following I'm sure it will do what you want or at least get you on the right
lines

Sub Save()

Dim strFilename
strFilename = Application.GetSaveAsFilename("My File" & Format(Now,
"ddmmyyhhnnss") & _
".xls", "Microsoft Excel 97-2000 & 5.0/95 Workbook
(*.xls),*.xls")

If strFilename <> "False" Then
ActiveWorkbook.SaveAs Filename:=strFilename, FileFormat:= _
xlExcel9795, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:=False
End If
Exit Sub

End Sub