Excel

Here is a better way to create a named range.

ActiveWorkbook.Names.Add 
    Name:="Data", 
    RefersToR1C1:="=" & 
    Worksheets("Data").Cells(1, 1).CurrentRegion.Address(True, True, xlR1C1, False)

The secret is in using the Address method to generate a name that can be used by
the Add method on a names collection.

Why didn't Microsoft allow Excel to do the following

 Range.Name = "Fred"

as an operation?