Get Range Address When Length Of Address Greater than 251 / 255

[Admin]

Hi,

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

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

[Rasm]

I often select using Shift+Click & Ctrl+Click - so I have multiple ranges - some continous - some single rows - some just even rows - so I may have more than a single sellection that is >240 characters - doint it using the loop allow me to have as many loops of selections of >240 as I desire. Since I may have multiple loops where the selection.address is greater than 240 - I dont add the last selection to the additem - instead I use it to for the Select fucntion - that way it become the new entry into the next selection. To drive me insane the FormSlt userform is only a placeholder for the rows selected - so I use it to populate other userforms - that way I can carry the selections across userform (and only having one ListBox to manage - I now use the way you set the list in your code rather than using the additem) - using the Form_Activate rather than the Form_initialize sub allow me to have great userform interaction.