Make Macro run on more than 1 chart sheet

I am using the following code to update a chart. It works, but I would like to know a good way of making it run on mulitple chart sheets without having to repeat the code over and over. Maybe using the select case command? I don't know how.

Public Sub ChangeAxisScales()
    With Sheets("Chart3")
            .Axes(xlCategory).MinimumScale = Range("startdate").Value
            .Axes(xlCategory).MaximumScale = Range("endate").Value
        End With
End Sub