Range name for a cell

[LonnieP]

I need a macro to give a cell a range name. Using the macro recorder I get:

ActiveWorkbook.Names.Add Name:="modulename", RefersToR1C1:="=Sheet1!R6C7"
Range("G6").Select

How do I change this so the range is the currently active cell. I tried to leave the 'RefersTo' stuff off but it didn't like that at all.

Help

 

[LonnieP]

Never mind, I got it. "RefersToR1C1:=ActiveCell" seems to work.

Thanks