Hello Everyone!

I've got two practically identical macros. One works all
the time, one never. I can't work out why Open works, but
SaveAs doesn't. Does anyone have any idea??

TIA

Sxx


Sub FileOpenDirectory()
Dim strDirectory As String

strDirectory = Excel.CommandBars.ActionControl.Tag

ChDrive Left(strDirectory, 1)
ChDir strDirectory
Application.Dialogs(xlDialogOpen).Show

End Sub
Sub FileSaveAsDirectory()
Dim strDirectory As String

strDirectory = Excel.CommandBars.ActionControl.Tag

ChDrive Left(strDirectory, 1)
ChDir strDirectory
Application.Dialogs(xlDialogSaveAs).Show

End Sub