From: Brad E. on

You have already Selected the range you want to name, so the following
should work for you.

ActiveWorkbook.Names.Add Name:="Records2", RefersTo:=Selection.Address

I did not test this. -- Brad E.

"Munchkin" wrote:

> I'm creating a template in which a user can copy & paste their records and
> format it a certain way w/a macro button. One portion of the macro should
> create a named range for all records that appear in column J, starting at J4.
> However, as you can see from my code the marco is always going to name
> whatever is in between J4:J748 (this is how many records are in the document
> I am working with).
> I can't figure out how to fix it - any suggestions appreciated.
> Range("J4").Select
> Range(Selection, Selection.End(xlDown)).Select
> ActiveWorkbook.Names.Add Name:="Records2", RefersToR1C1:= _
> "=Sheet1!R4C10:R748C10"
> Range("C1").Select