Greg,
Try
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
MsgBox "Be Sure You Save Before you close this Program"
ActiveWorkbook.Save
End Sub
Your Friend Charles
Ps it on your copy I sent you
--
Message posted from
http://www.ExcelForum.com