Errors occuring when creating a set of named ranges

I'm trying to make my worksheet generate a bunch of named ranges whenever it is activated.

However, I'm getting a "Not a valid name" error on the line in red. The value of r is a string, so I really don't see what the issue is. Another time, I got a object defined error, but I think I've declared everyhing too. That line is very similar to the line above, and tends to work once (the first time around the loop). After that, I get the errors I mentioned.

Please Login or Register  to view this content.

If anyone could tell me what i'm doing wrong, I'd be greatful.

What's in r when the code falls over?

A hyphen is not valid in a range name.

:S ... ok well I should be able to change that.

Thanks for the help.