setting loop code to check all named sheets

[bakerman]

Tested Alan's code and made some minor changes.
This does the trick for me.
Try it out and feel free to ask if you have any further problems.