How to determine if an object exists

[akn846]

On my spreadsheet, I have included an embedded chart - this object is the one to be used throughout the application, changes to data will be reflected by resetting the source data range on this object.

But I need to check that the object exists on the sheet - otherwise I'll have to recreate it. Could someone please suggest how I can check whether a chart exists on a worksheet programatically.

Many thanks

Andy

 

[ratman]

Consider this:

Sub IfChartExistsOnSheet()
Dim a As String
Dim endo As String
On Error GoTo endo
a = Worksheets("Sheet1&quot.ChartObjects(1).Name
endo:
If a = "" Then nochart = 1
End Sub Thank you,
Dave Rattigan