Sub test()
Dim buf
buf = Selection
Debug.Print UBound(buf), LBound(buf)
End Sub