Hsieh

¦^´_ 1# acdx


    mypath = ThisWorkbook.Path & "\"
fs = Dir(mypath & "zzz_results.xls")
If fs = "" Then
   Workbooks.Add
   ActiveWorkbook.SaveAs Filename:=mypath & "\" & "zzz_results.xls"
Else
       mymsg = "zzz_results.xls exist, Overwrite it ?"
        mytitle = " WARNING"
               
        mybtn = MsgBox(mymsg, vbYesNo + vbExclamation, mytitle)
        
        If mybtn = vbNo Then GoTo 40
End If