Excel VBA Obtenha o nome da coluna do número
'For column number 256...
ColName = Split(Cells(, 256).Address, "$")(1)
Excel Hero
'For column number 256...
ColName = Split(Cells(, 256).Address, "$")(1)
Sub datacollect()
Dim heading() As String
Dim i As Integer
i = -1
For Each x In Rows(1).Cells
If x.Value = "" Then Exit For
i = i + 1
ReDim Preserve heading(i) As String
heading(i) = x.Value
Next x
End Sub