Msg Box - User Entry Validation
 

Hello,

I am writing some vb code which will save a workbook

WB.SaveAs ("MyExcelWorkbook.xls") - Now if I have already run this Macro MS
Excel prompts the user saying "MyExcelWorkbook.xls" already exists do you
want to override. Yes / No / Cancel

If the user clicks 'Yes' everything is fine. However if the user clicks No
or Cancel the code crashes. How do I build in this validation.

Any help would be much appreciated.

AC

Msg Box - User Entry Validation
 

Dim ans as Long

ans = vbYes
If dir( "MyExcelworkbook.xls") < "" then _
ans = Msgbox( "Overwrite existing MyExcelworkbooks.xls",vbYesNo)
if ans = vbYes then
WB.SaveAs ("MyExcelWorkbook.xls")
End if

--
Regards,
Tom Ogilvy

"ACase" wrote in message
...
Hello,

I am writing some vb code which will save a workbook

WB.SaveAs ("MyExcelWorkbook.xls") - Now if I have already run this Macro
MS
Excel prompts the user saying "MyExcelWorkbook.xls" already exists do you
want to override. Yes / No / Cancel

If the user clicks 'Yes' everything is fine. However if the user clicks
No
or Cancel the code crashes. How do I build in this validation.

Any help would be much appreciated.

AC