Hi Rasm,

Sorry for the late reply. Forum was down for the last 24 hours

Replace

Code:
If objChartObject.Chart.ChartArea.Interior.Color = -2 Then
        objChartObject.Chart.ChartArea.Interior.Color = ZoomInChartAreaColor
    End If
with

Code:
If objChartObject.Chart.ChartArea.Format.Fill.ForeColor.RGB = ZoomInChartAreaColor Then
        objChartObject.Chart.ChartArea.Format.Fill.ForeColor.RGB = ZoomInChartAreaColor
    End If
Essentially replace
Code:
objChartObject.Chart.ChartArea.Interior.Color
with

Code:
objChartObject.Chart.ChartArea.Format.Fill.ForeColor.RGB
HTH