Hello Everyone?

Raised this last week, but wasn't as precise as this.
Open works below, but not SaveAs, does anyone else get
the same result or know why?

TIA

Sxx


Sub FileOpenDirectory()
ChDrive "C"
ChDir "C:\1"
Application.Dialogs(xlDialogOpen).Show

End Sub
Sub FileSaveAsDirectory()

ChDrive "C"
ChDir "C:\1"
Application.Dialogs(xlDialogSaveAs).Show

End Sub