Hiding Columns before Saving

[Aidy]

I'm tring to hide a column before I save the workbook. So I'm using
the 'WorkbookBeforeSave' event method.

I've put this in the class module

Public WithEvents App As Application

Public Sub App_WorkbookBeforeSave(ActiveWorkbook, _
ByVal SaveAsUI As Boolean, Cancel As Boolean)

Columns("D").Select
Selection.EntireColumn.Hidden = True

End Sub

And this in a normal module

Public Ev As ClsEvents

Sub SaveAndHideCols()

Set Ev = New ClsEvents

Ev.App_WorkbookBeforeSave ActiveWorkbook, False, False

End Sub


However, when I press save, the code within the event method is not
activated.

What am I doing wrong?

Cheers

Aidy

 

[Frank Kabel]

Hi
why don't you put your code in the workbook module and use the
pre-defined event Workbook_BeforeSave

 

[Tom Ogilvy]

Just to add a little more information.
See Chip Pearson's instructions for instantiating application level events:

http://www.cpearson.com/excel/AppEvent.htm

but this will do this for every workbook you save. Is that what you want.
If you only want it for this one workbook, then you should use the workbook
level event BeforeSave

http://www.cpearson.com/excel/events.htm