I have a sheet that contains about 32 charts, since there are so many charts I reduced the scale of the sheet so I can see all charts. Problem is the charts are so small I can't interpret them. I want to create a macro that re-sizes them when I click on them without having to write a separate macro for each chart. Is there a way to return the name of a chart to a variable? Here is what i have so far:

Dim ChtOb As ChartObject


With ActiveSheet

Set ChtOb = .ChartObjects("chart 1")


If ChtOb.Height < 1500 Then
With ChtOb
.Height = 1500
.Width = 2800
.Top = 34
.Left = 43
End With
Else
With ChtOb
.Height = 420
.Width = 715
.Top = 5
.Left = 5
End With
End If