Activate existing chart

[VBA_Newbie]

I'm trying to activate an existing chart but I keep getting an error "Subscript out of range". Here is the code I'm using. Any thoughts?

Worksheets("Pricing").ChartObjects("Chart 5").Activate

 

[sweater_vests_rock]

hi mike.

are you sure you have a chart named "Chart 5"? are you sure you have a worksheet named "Pricing"? if yes to both, is chart 5 on pricing?

cheers. ben.

 

[VBA_Newbie]

Yes to both. When I right-click on embedded object and go to chart window...it says it is named "Chart 5". I can't figure it out.

 

[sweater_vests_rock]

hi mike.

try running this code to see what chartobjects are on your sheet (you'll need to change wsSearch to the applicable worksheet)

Sub FindChartObject()

    Dim wsSearch As Worksheet
    Dim cht As ChartObject
    
    Set wsSearch = Worksheets("Sheet1")
    
    For Each cht In wsSearch.ChartObjects
        cht.Activate
        MsgBox cht.Name
    Next cht
    
End Sub

 

[VBA_Newbie]

I'm an idiot...I had accidently put a space at end of the worksheet name "Pricing"....Sorry for the trouble.