With Worksheets("Sheet1")
.Range(.Cells(1, 1), .Cells(14, 2)).Name = "NewRangeName"
End With
msgbox Range("NewRangeName").address(External:=True")

should work. It always does for me.

You don't have "on error resume next" set in your code do you?

--
Regards,
Tom Ogilvy

Mark D'Agosta wrote in message
et...
All,

Using Excel 2000, I'm unable to programmatically create a named range. I
have a series of lookup tables which I export from a database to an Excel
spreadsheet (all standard code/description-type lookup tables). I then
want
to create a named range for each lookup table's data. I've tried both the
following methods and, while neither generates an error, they do not
create
the named range:

1. MyWorksheet.Names.Add Name:="NewRangeName",
RefersToR1C1:="R1C1:R14:C2"

2. Range(Cells(1, 1), Cells(14, 2)).Name = "NewRangeName"

Any ideas?

Thanks,

Mark D'Agosta