Deactivate chart created with VBA

I was able to assign the action without selecting the chart, however I do have to have the chart active in order to change the series properties. After which the chart does not deactivate, unless I step through the code line by line.

Updated code:

Sub FormatChart_Coverage(strChart As String)

Dim srs As series

    ThisWorkbook.Sheets("Report").ChartObjects(strChart).Activate
    
        ActiveChart.SetElement (msoElementLegendNone) ''Hide the legend
        ActiveChart.SetElement (msoElementDataTableWithLegendKeys) ''Show the data table
    
    For Each srs In ActiveChart.SeriesCollection
    
        If srs.Name = "Total" Then
            srs.AxisGroup = 2
            srs.Select
            With Selection.Border
                .Weight = xlThin
                .LineStyle = xlNone
            End With
            Selection.Interior.ColorIndex = xlNone

        ElseIf srs.Name = "YTD Goal" Then
            srs.ChartType = xlLineMarkers
            srs.Select
            With Selection
                .MarkerStyle = -4115
                .MarkerSize = 13
                .MarkerBackgroundColorIndex = 3
                .MarkerForegroundColorIndex = 3
            End With
            With Selection.Border
                .LineStyle = xlNone
            End With
        End If
    Next
          
    ActiveChart.DataTable.Font.Size = 8
    
    ActiveChart.Axes(xlValue, xlSecondary).MajorTickMark = xlNone
    ActiveChart.Axes(xlValue, xlSecondary).TickLabelPosition = xlNone

    ThisWorkbook.Sheets("Report").ChartObjects(strChart).OnAction = "'" & ThisWorkbook.Name & "'!Drill_CoverageForm"
         
    ThisWorkbook.Sheets("Report").Activate
    ActiveSheet.Range("A1").Select

End Sub

Originally Posted by kcaprik

I was able to assign the action without selecting the chart, however I do have to have the chart active in order to change the series properties.

why? Did you try my code at all?

Also, can you please put code tags round your code, per the forum rules?