Complicated Save
 

Hi All,

I have some data sheets generated that are saved as excel Web Pages. I
need to write a macro that will allow the user to use the same file
name but save to a specified location different from the original
document. I also need it to update the saved format to *.xls

Macro I have written, uses the original name (good) but saves over the
original files and not to the new location (bad).

Newer macro writer this is what I have:

ActiveWorkbook.SaveAs
ChDir "X:\Elmo\Sesame Street\Number 3\Red House"
Dim fn As Variant
fn = Application.GetSaveAsFilename( _
"Excel files,*.xls", 1, "X:\Elmo\Sesame Street\Number 3\Red
House\*.xls")
If TypeName(fn) = "Boolean" Then Exit Sub
ActiveWorkbook.Save

End Sub

Any and all help greatly appreciated!

Thanks