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

[Rasm]

I will do - sorry

[Rasm]

Here is how I ended up dealing with issue - I keep track of the selected rows in a Listbox on a userform. From that userform I can then have access to an unlimited number of rows in my selection - than do the proper processing of my selected rows

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim MyString() As String, MyString1() As String
    If Len(Selection.Address(False, False)) > 240 Then
        Astr = Selection.Address
        MyString = Split(Astr, ",")
        For i = 0 To UBound(MyString) - 1
            MyString1 = Split(MyString(i), ":")
            If MyString1(0) <> MyString1(1) Then
                    FormSlt.LBrowsSlt.AddItem MyString1(0) & "-" & MyString1(1)
                Else
                    FormSlt.LBrowsSlt.AddItem MyString1(0)
            End If
            ActiveSheet.Range(MyString(UBound(MyString))).Select
        Next i
    End If
End Sub