I am using Excel 2003 and am trying to write a macro that will ope
another workbook.

I don't want users to be able to hit the x-button to close out, but
do want them to be able to hit a cancel button and return to th
original workbook.

This is what I have so far, but it only allows for the msg to appea
once, and it if somebody wants to cancel, they get a debug message.


Filename = Application.GetOpenFilename(, , "Select SPS_Shee
file")

If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "You can't close the dialog like this!"
End If

Filename = Application.GetOpenFilename(, , "Select SPS_Shee
file")

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(Filename)
s = f.DateCreated

Workbooks.Open Filename

Thanks in advance for your help!
-Meliss

--
Message posted from http://www.ExcelForum.com