VBA to auto hide worksheets

Hello All,
I am attempting to configure a code to auto hide all worksheets in a workbook that do not have a value in cell A2, but leaves the sheets that do have a value in cell A2 visible. I want this to happen when the user cliucks the save button.
Here is what I have so far:

Please Login or Register  to view this content.

When I place this code in the workbook module and click save, nothing will happen to to any sheets when I have an active sheet that does have a value in A2, but when I have a visible sheet that does not have a value in A2, the code closes all worksheets in order up to the worksheet that is visible.
Any help to point me in the right direction would be greatly appreciated!
Thanks!