How to find the text column number using VBA

it will search the value and find the column number

m_BlocID_CLM = WorksheetFunction.Match("Bloc ID", ActiveWorkbook.Sheets("Data").Range("1:1"), 0)


it will return the value 1