RefersTo:=Range [transpose(..)]

[PcMax]

Hi,

I enclose the correct code to load the data selection.

  Dim myArray() As String

  For Each c In Selection
    If Not IsNumeric(c) Then
      If Val(c) > 0 Then
        ReDim Preserve myArray(i) As String
        myArray(i) = c
        i = i + 1
      End If
    End If
  Next
  
    sn = Split(Join((myArray), "-"), "-")