New Chart Types

Public Function Chart_TypeIdentify_New2016(ByVal oChart As Excel.Chart) As Boolean 
Const sProcName As String = "Chart_TypeIdentify_New2016" 
   On Error GoTo ErrorHandler 
   Chart_TypeIdentify_New2016 = False 
   If ((oChart.ChartType = xlBoxwhisker) Or _ 
       (oChart.ChartType = xlHistogram) Or ) 
       (oChart.ChartType = xlPareto) Or _ 
       (oChart.ChartType = xlSunburst) Or _ 
       (oChart.ChartType = xlTreemap) Or _ 
       (oChart.ChartType = xlWaterfall)) Then 
   End If 
   Exit Function 
ErrorHandler: 
   Call Error_Handle(msMODULENAME, sProcName, Err.Number, Err.Description) 
End Function 

This line causes Excel to crash for a TreeMap

ActiveChart.Legend.Font.Size = 8