Hi Mike,

Interesting exercise.

XL2007 Visual basic Help searched under "Item Method (VBA Add-In Object
Model)" says CodePanes No unique string associated with this collection.

So it appears that you cannot replace the index number with a string.

I tested like this:-

Sub TestGetSelection()

Dim startline As Long
Dim startcol As Long
Dim endline As Long
Dim endcol As Long
Dim i As Long

For i = 1 To Application.VBE.CodePanes.Count
If Application.VBE.CodePanes(i).CodeModule = "Module2" Then
Exit For
End If
Next i

Application.VBE.CodePanes(i).GetSelection _
startline, startcol, endline, endcol

MsgBox Application.VBE.CodePanes(i) _
.CodeModule & vbCrLf & _
"startline = " & startline & vbCrLf & _
"startcol = " & startcol & vbCrLf & _
"endline = " & endline & vbCrLf & _
"endcol = " & endcol

End Sub

--
Regards,

OssieMac