Private Sub Workbook_BeforeClose(CANCEL As Boolean)

Dim cTime As Long
Dim WSH As Object

Set WSH = CreateObject("WScript.Shell")
cTime = 1 ' 1 secs
Select Case WSH.Popup("Last Updated By" & Application.UserName, cTime
"Closing", vbOKOnly)
End Select

Call macro1

End Sub

this pops up a box that says last updated by & username, then goes awa
after 1 second. the only thing that i would change about it, is tha
it has an 'okay' button on it. is it possible to have no buttons

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