Hello,

I made the following code, which opens the Save As box. I then change
the dir, and want it to save it under the name given in cell AE2. But
it doesn't work. I am working with excel2000.

Any idea's why???????


Sub filerenaming()
fileSaveName = Application.GetSaveAsFilename( _
InitialFilename:=Range("AE2").Value, _
fileFilter:="Microsoft Excel Workbook (*.xls), *.xls")
If fileSaveName < False Then
MsgBox "Save as " & fileSaveName
End If
End Sub