Window.ActiveChart (Excel)

Returns a Chart object that represents the active chart (either an embedded chart or a chart sheet). An embedded chart is considered active when it's either selected or activated. When no chart is active, this property returns Nothing.

If you don't specify an object qualifier, this property returns the active chart in the active workbook.

Dim chrActiveChart As Chart
Set chrActiveChart = ActiveWindow.ActiveChart