Hi Jim,

This will always keep your filter on, columns A to O

Sub AutoFilterOn()
If Sheets("Sheet1").AutoFilterMode = False Then
Range("A1:O1").AutoFilter
End Sub

Replace ("Sheet1") with the naem of your sheet and maybe change the
range to your column headers.

somethinglikeant
http://www.excel-ant.co.uk