match_lookup = Thisworkbook.Sheets("Sheet1").Range("1:1")
Application.WorksheetFunction.Match("columnname", match_lookup, 0)
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts