vba excel find column by header name code example

Example 1: excel vba get column name from number

'For column number 256...

ColName = Split(Cells(, 256).Address, "$")(1)

Example 2: 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