'Replace space( ) with Underscore(_)
Thisworkbook.Sheets("SHEETNAME").Rows("1:1").Replace What:=" ", Replacement:="_", SearchOrder:=xlByRows, MatchCase:=False
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts