Change background color of all named ranges

[bradyboyy88]

HI,

I am trying to loop through all the cells in thisworkbook and change the background color to vbyellow. My code so far is as follows:

Sub testdata()


Dim nm As Variant


For Each nm In ThisWorkbook.Names
    Range(nm.RefersTo).Interior.Color = vbYellow
Next nm


End Sub

It draws an error at the range() function which makes me think this method will not work. Any help will be appreciated.

 

[mikerickson]

Sometimes folks forget the value in being lazy.

 

[bradyboyy88]

Thanks to all the responses. THese have been a huge help.