Bob,

Thanks again for all your help.

This is what I've gotten to work then:

Dim detrng As String
detrng = Selection.Address
Union(Range("Detailed"), Range(detrng)).Name = "Detailed"

The selected cell is the cell that has the code execute.

I changed the name of the named range, but other than that it should
work. The only thing I'm concerned with now is getting the reference to
update if a section is deleted. I'll work on that later. I've got
another part to work on a for awhile. Thanks again.

Dave


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!