What I often do to help my macros and other formulas is to create a sheet called "System" and I populate this sheet with various data, either dynamic or static, that is used behind the scenes. I then hide this sheet so that it isn't in the way.
I recommend you creating a System sheet and putting a fromula in one of the cells that automatically generates the sheet name for the current day's sheet. Something like "=TEXT(TODAY(),"mm.dd")". Then name this cell (http://www.contextures.com/xlnames01.html). Then adapt the code above to include a test for the current sheet.
Something like this:
Replace "CurrentSheet" with whatever name you gave the cell in the System sheet.
If you find yourself needing to not include more and more sheets, for whatever reason, you can expand the named cellin the System tab from a single sheet name to a list of names. Then instead of "If Sht.Name <> "Summary" and Sht.Name <> Range("CurrentSheet") Then" you could do a "If IsError(Application.Match(Sht.Name,Range("DoNotAverage"),0) Then"
As far as rep, just take a few moments to read other threads. If you see anyone who posted helpful advice, even if it doesn't directly benefit yourself, give them rep. Then you can return here and give me more rep. Everyone loves to receive rep, but unfortunately not everyone loves to give it. There are a bunch of really helpful people on this site that dedicate their time and knowledge to helping complete strangers and they deserve thanks, even if they did not help you directly.
Bookmarks