View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Gary Brown[_4_] Gary Brown[_4_] is offline
external usenet poster
 
Posts: 209
Default Auto Filter memory

To get rid of all filters on a worksheet before the worksheet closes, put
this in the 'ThisWorkbook' module...

'--------------------------------------------------/
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim iCount As Integer, i As Integer

On Error Resume Next

iCount = Worksheets.Count

For i = 1 To iCount
Worksheets(i).ShowAllData
Next i

End Sub
'--------------------------------------------------/

--
Hope this helps.
Thanks in advance for your feedback.
Gary Brown


"Libby" wrote:

Hi Guys,

I have a workbook which is used by multiple users. They can all save
changes, but I don't want the workbook saved with filters in place.
Sometimes filters are used. The filters are always on row 5 and on 35 columns.
Is there anyway, when someone saves the workbook, that the filters in place
could be "memorised", the workbook saved and the previous filter settings
then applied?

All help much appreciated!