get all column names from excel vba
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