Hi Eric,

Norman, sorry to be simple minded but I ran that macro and it doesn't
appear that anything happened.

I suspect I misinterpreted your intentions. Try:

'=============
Public Sub Tester01A()

With Range("A4")
Names.Add Name:="RangeA", RefersTo:=.CurrentRegion.Columns(1)
Names.Add Name:="RangeB", RefersTo:=.CurrentRegion.Columns(2)
Names.Add Name:="RangeC", RefersTo:=.CurrentRegion.Columns(3)
Names.Add Name:="RangeD", RefersTo:=.CurrentRegion.Columns(4)
End With
End Sub
'<<=============

---
Regards,
Norman