Workbook_Close Command

[Jan Nademlejnsky]

I am looking for a code which would restore the spread sheet to "Clean
State" before saving (when it is being saved):

Something like the following which would be automatically trigged when sheet
is saved:

Sub Before_Save ()
OnSave
ActiveSheet.AutoFilterMode = False
Range("A3").Select
end sub

Thanks for your help

Jan

 

[Dave Peterson]

Maybe you could use the workbook_beforesave event:

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Worksheets("Sheet1")
.AutoFilterMode = False
Application.Goto reference:=.Range("A1"), scroll:=True
.Range("a3").Select
End With
End Sub


Right click on the excel icon to the left of File on the worksheet menubar and
select view code. Paste that in.

Save you workbook (adjust the name "sheet1" to what you need).

 

[Jan Nademlejnsky]

Hi Dave,

This is exactly what I was looking for. You made my day!

Thanks

Jan