sub workbook_beforeclose

  1. I

    Sub Workbook_BeforeClose

    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...

Some videos you may like

This Week's Hot Topics

Top