RefersTo:=Range [transpose(..)]

Hi,

I modified the code you see below:
http://www.excelfox.com/forum/f2/cou...a-column-1645/
With the following code to call the area "Rngx"
How can I rewrite this code to define a range of research?

Code:

---

ActiveWorkbook.Names.Add Name:="Rngx", RefersTo:=Range(Cells(1, Col_Dati), Cells(Cells(Rows.Count, Col_Dati).End(xlUp).Row + 1, Col_Dati))
        sn = Split(Join([transpose(Rngx)], "-"), "-")

---

I hope we can avoid naming the range

Thank you in advance

Hi,

I enclose the correct code to load the data selection.

Code:

---

  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), "-"), "-")

---