Hi there
This piece of code runs correctly
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim XCount As Integer
XCount = Application.Sheets.Count
Revised = Format(Now(), "mmm dd, yyyy")
Dim i As Integer
Dim Str As String
i = 1
Str = Sheets(i).Name
Dim Msg, Style, Title, Response
Msg...