Private Sub mnuFileSaveAs_Click()
On Error GoTo SaveErrHandler
dlgSchedule.CancelError = True 'Treat cancel as an error
dlgSchedule.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist
dlgSchedule.Filter = "Forms(*.frm)|*.frm"
dlgSchedule.ShowSave
Open dlgSchedule.filename For Random As #1
Print #1, frmFinal
frmFinal.Caption = dlgSchedule.filename & " - Schedule"
Close #1
blnChange = False
Exit Sub
SaveErrHandler:
blnCancelSave = True
Exit Sub
End Sub
