wdDialogSaveAs box doesn't show except on first run of macro

[Joyner]

Hello, I am using excel 2003

I have the below code to call the Word save as dialog box. It works fine the first time it is used after opening Excel, but the dialod box doesn't show if the macro is run after that. To get it to work again, I have to close Excel, reopen and then rerun the macro. Also, if the document exists in the folder and I select "replace existing document" nothing happens (dialog boxes close, but the document doesn't save).


Any ideas why it would behave like this? Do I need some more robust code?


Thanks


With Dialogs(wdDialogFileSaveAs)
.Name = sFolder & sSaveFileName
.Show
End With