Sheet1 contains "Chart 1"

I want to set a variable to "Chart 1"

Dim chrt As Chart
Set chrt = Sheets("Sheet1").ChartObjects("Chart 1")

This gives a type mismatch error. If I Dim chrt As ChartObject then I do
not get the chart methods/properties in the dropdown. But I don't see any
other options for setting chrt to "Chart 1". Any suggestions appreciated.

Thanks,
Rich