If there is no chart on activesheet, then go to NoChart.

[clarksonneo]

Hi,

I want a macro that has this function:
If there is no chart on activesheet, then go to NoChart.

However, my code does not work

[VBA]
If ActiveSheet.ChartObjects Is Nothing Then
GoTo NoChart
End If
...
...
NoChart:

[/VBA]

Could you please amend my macro so that it bcomes work?

Thanks

[Bob Phillips]

Try

[vba]
If ActiveSheet.ChartObjects.Count = 0 Then[/vba]