Hi,

Thanks for posting back. I think you can shorten the code little bit, untested though.

Code:
Dim MyString() As String, MyString1() As String
    Dim lstList
    
    If Len(Selection.Address(False, False)) > 240 Then
        astr = Replace(Selection.Address, ":", "-")
        lstList = Split(astr, ",")
        FormSlt.LBrowsSlt.List = lstList
    End If