Macro for Freeze Panes with a filter

[Cet88]

I often work with multiple windows of the same workbook. what's really annoying is each time you open the workbook the freeze panes disappear. I have set a macro to put the freeze panes on at the click of a button, but it doesn't work properly if the there is a filter on as it freezes the hidden rows as well.

I need a macro to select the current active cell, clear the filter, freeze the panes at E3, put the filter back on and select the current cell. i.e. the user would know nothing had happened other than the freeze panes is now on.

The filter could be on multiple columns and is usually different text each time. this is what I am struggling with.

thanks