hello gurus

I'm having trouble with the following code. The last line I've show works
perfectly - the 'Save As' dialog comes up, and the 'File Name' drop-down box
correctly shows the value of strFileName. But, I can't figure out how to get
the 'Save In' drop down box to show the value of strSaveLocation.

strSaveLocation = "C:\EmpData\2009"
strFileName = "Report_" & strDate & "_" & strEmpName & ".xls"

Application.Dialogs(xlDialogSaveAs).Show strFileName

Any clues welcomed!
Terry W.