This is the best suggestion that I can come up with.
The first procedure below reads the filters that are applied to the activesheet and saves them to an array. The second procudure re-applies the filters.
The theory being that you should be able to run the first procedure, then your code to change the font, followed by the second procedure.
A couple of things to note:-
The array holding the filter criteria will be lost if any code encounters an unhandled error. This means your font code as well, not just these procedures.
I've only tested the code with some basic filters, so there are most likely things that I haven't allowed for. Use with caution. Would be best to duplicate your workbook for testing in order to preserve the original.
Maybe another member can improve this.
Bookmarks