I have the following for/next loop in Excel

For Each objcht In sht.ChartObjects

In Excel I dimension it as

Dim objcht As ChartObject

I want to do something with a chart object through PowerPoint and I have a
similar For/Next loop

For Each chtobj In XLSheet.ChartObjects

I've tried dimensioning it like this:

Dim chtobj As Application.Excel.ChartObjects

When I try to RUN it, I get an application mismatch on the immediately
preceding line. Can someone assist?

Thanks