This is doing my head in!! I am simply trying to redirect the place that the user is able to save the sheet ie in my documents as the file is originally opened from a read-only copy on the server .. it should be simple but...
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As Boolean)
Dim fileSaveName As String
fileSaveName = Application.GetSaveAsFilename("my documents\Timesheet""Excel Files (*.xls), *.xls")
Application.ActiveWorkbook.SaveAs fileSaveName
What keeps happening is that when the user presses Cancel on the save as dialog, the file still saves but as a file called "False.xls". any ideas why??
Many thanks
Georg
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As Boolean)
Dim fileSaveName As String
fileSaveName = Application.GetSaveAsFilename("my documents\Timesheet""Excel Files (*.xls), *.xls")
Application.ActiveWorkbook.SaveAs fileSaveName
What keeps happening is that when the user presses Cancel on the save as dialog, the file still saves but as a file called "False.xls". any ideas why??
Many thanks
Georg