I am trying to find all range names that exist on a given sheet in m
workbook. I do not need to know the names for all of the sheets. Her
is the code I used, but it only displayed 1 of the names on that sheet
when in fact there are about 5. Can anyone help?

Sub testbsrange()
Dim oname As Object
For Each oname In Worksheets("Blank_Sheet1").Names
MsgBox oname.Name & oname.RefersToR1C1

Next oname
End Su

--
Message posted from http://www.ExcelForum.com