"David Balkema" wrote in message
...
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"

This is overdoing it a bit. You are going back to go forward :-). You only
need

Union(Selection, Range(detrng)).Name = "Detailed"