Greetings again all. I am back with yet anither issue. I have searched/read the posts here regarding this issue and cannot seem to gleen the solution. I have a macro tha t puts the Save As dialog box up and let's me type in a file name, but after clicking on the save button, My file is not renamed - I have queried the the destination folder numerous times to no avail. The Macro Code is: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheet2.Select
Application.DisplayAlerts = False

Dim filename As String
ChDrive "N:\VEHMAINT\Passdown\PDTest"
ChDir "N:\VEHMAINT\Passdown\PDTest"

fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="xls Files (*.xls), *.xls")

If fileSaveName <> "False" Then
ActiveWorkbook.SaveAs
End If

' You can put a MsgBox or something here to alert the user if desired
Application.DisplayAlerts = True
Cancel = True
Application.Quit

End Sub