Workbook Close event

[AcctgGuy]

Hello All,

It's been a while since my last post...so I'm getting back into it!

What I'm trying to do is have an automatic Workbook close event where any columns that were hidden during work performed are unhidden prior to the workbook closing.

I searched the board and couldn't find anything that would help.

Any ideas??

 

[Norie]

How about something like this?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        ws.Cells.EntireColumn.Hidden = False
    Next
End Sub

 

[Smitty]

Welcome back!

Maybe something like this:

Private Sub workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
       
        For Each ws In ActiveWorkbook.Worksheets
            ws.Cells.EntireColumn.Hidden = False
        Next ws
    
End Sub

HTH,

Smitty

EDIT: Way to slow :wink:

 

[AcctgGuy]

Thanks for your help!! Worked perfectly!!