You might find the solution to my previous post of the same name interesting if not amusing... The code is rather sloppy as I was testing the final idea (see previous post), but it works.

<pre>On Error Resume Next
Set xlApp = CreateObject("Excel.Application")
If Err.Number <> 0 Then
MsgBox "Error: Could not start Excel."
Else
strUserDefaultExcelPath = xlApp.DefaultFilePath
xlApp.DefaultFilePath = vDrv + ROOTFOLDER + "" + FormName
xlApp.Quit
Set xlApp = Nothing
'In order to set the default folder, Excel must be closed. So now reopen and proceed.
Set xlApp = CreateObject("Excel.Application")
If Err.Number <> 0 Then
MsgBox "Error: Could not start Excel."
Else
StartExcelSuccess = True
End If
End If
</pre>


This little anomally about Excel has plagued me for over a year. Today we celebrate!