Graficar condición Checkbox

Muy buena tarde. Tengo un userform con checkbox que corresponden a cada mes. Mi procedimiento en el botón de gráfica coloque if's para validad el check box para las 3 regiones, es decir debo graficar cada región para ver el porcentaje por cada meses o meses. Si gráfico ENERO Y FEBRERO DE LA REGIÓN 3 lo realiza muy bien pero atrase del objeto están todas las gráficas que corresponden a Enero, es decir me gráfica todos los eneros colocando hasta en frente el que le solicito. Mi Código es el siguiente:

'---------------ENERO AF2 METRO
If ComboBox1.Value = "AF2 METRO" Then
If ENERO.Value = True Then
ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
ActiveChart.SetSourceData Source:=Sheets("RESUMEN").Range("CJ8:CK14")
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "ENERO AF2 METRO"
End If
End If
'--------------ENERO AF1 METRO
If ComboBox1.Value = "AF1 METRO" Then
If ENERO.Value = True Then
ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
ActiveChart.SetSourceData Source:=Sheets("RESUMEN").Range("CJ39:CK42")
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "ENERO AF1 METRO"
End If
End If
'--------------ENERO AF2 GUADALAJARA
If ComboBox1.Value = "AF2 GUADALAJARA" Then
If ENERO.Enabled = True Then
ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
ActiveChart.SetSourceData Source:=Sheets("RESUMEN").Range("CJ72:CK75")
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "ENERO AF2 GUADALAJARA"
End If
End If
'--------------FEBRERO AF2 METRO
'--------------ENERO-FEBRERO AF2 METRO
If ComboBox1.Value = "AF2 METRO" Then
If ENERO.Value And FEBRERO.Value = True Then
ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
ActiveChart.SetSourceData Source:=Sheets("RESUMEN").Range("CJ8:CM14")
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "ENERO - FEBRERO AF2 METRO"
End If
End If
'-------------ENERO-FEBRERO AFI METRO
If ComboBox1.Value = "AF1 METRO" Then
If ENERO.Value And FEBRERO.Value = True Then
ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
ActiveChart.SetSourceData Source:=Sheets("RESUMEN").Range("CJ38:CM42")
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "ENERO - FEBRERO AF1 METRO"
End If
End If

Y así sucesivamente. Que me sugieren para evitar tantos objetos graficados.

Excelente fin de semana