VBA: Simple Macro Modification, Help needed

[nflami]

Hello all,

I found this macro below someone preivously posted and it works great, but I would like to change the macro to only make changes to the active sheet rather than the entire workbook and was having trouble making the correct modifications. Could some help modify the code for me? Thanks!

Sub dotitles()
    For Each sh In Worksheets
        For Each ch In sh.ChartObjects
            If ch.Chart.HasTitle Then
                ch.Chart.ChartTitle.Text = Replace(ch.Chart.ChartTitle.Text, "Jan", "Feb", 1)
            End If
        Next
    Next
        
End Sub

 

[BJungheim]

Sub dotitles()
    For Each ch In ActiveSheet.ChartObjects
        If ch.Chart.HasTitle Then
            ch.Chart.ChartTitle.Text = Replace(ch.Chart.ChartTitle.Text, "Jan", "Feb", 1)
        End If
    Next
End Sub

 

[JoeMo]

Sub dotitles()
For Each ch In ActiveSheet.ChartObjects
    If ch.Chart.HasTitle Then
        ch.Chart.ChartTitle.Text = Replace(ch.Chart.ChartTitle.Text, "Jan", "Feb", 1)
    End If
Next
End Sub

 

[nflami]

Thank you to you both and for the fast reply! Works perfect!!