Excel Name object bug
All,
I want to add a sheet name referencing a multi area range on another
sheet.
The normal code to do this actually fails:
Sub t()
Dim rngMyRange As Range
Dim shtMysheet As Worksheet
Dim shtMyOthersheet As Worksheet
Set shtMysheet = ActiveWorkbook.Worksheets(1)
Set shtMyOthersheet = ActiveWorkbook.Worksheets(2)
Set rngMyRange = shtMyOthersheet.Range("A1,A3")
shtMysheet.Names.Add "MyName", "=" & rngMyRange.Address(, , , True)
Debug.Print shtMysheet.Names("MyName").RefersTo
shtMysheet.Names("MyName").Delete
End Sub
Only the first area of the range is on the correct sheet. all other
areas are on the sheet of the defined name.
Anybode got some code to get around this?
DM Unseen
|