Change font size of all shapes VBA excel

I can't get this code to work - does anyone have any suggestions? Seems easy but I don't know what I'm doing wrong... thanks in advance.

Edit: I have a bunch of charts with a textbox. I'm trying to change the font size within that textbox for all charts. This is a picture of what I mean

Sub shapeFont()
Dim shp As Shape

For Each shp In ActiveSheet.Shapes
    With shp.ShapeRange.TextFrame2.TextRange.Font
    .Size = 30
    End With
    Next shp

End Sub