Restore Hyperlink colors in Named Range?

[jmpatrick]

I have this code to restore hyperlinks back to blue:

    Dim hl As Hyperlink
    For Each hl In ActiveSheet.Hyperlinks
    hl.Range.Font.Color = RGB(0, 0, 255)
    Next

Is there a way to run this on a named range rather than the whole sheet?

 

[NoSparks]

Does it not work when you try Range("WhatEver") instead of ActiveSheet ?

 

[jmpatrick]

Does it not work when you try Range("WhatEver") instead of ActiveSheet ?

That was easy. Thanks!