Broken Hyperlinks (lots in one sheet)

I hope you put it into the right sheet module.
Well, you have to run the code (alt-F8)

After that the only thing that is noticeble in the sheet is that certain links lack the understrike and have another colour.

You can post a sample workbook (containing 1 sheet and only a few rows containing hyperlinks and the macro).