Formating All Text Boxes

[deftones]

So, this is pretty much a newbie question, but I have a spreadsheet with exactly 4 textboxes per tab, with about 15 tabs. I want to change the font style of all text boxes to the same style. I'm trying to keep my code somewhat efficient; isn't there a quick way to do this? I have a loop that's doing some different formatting on each sheet, so I just wanted to add something like this at the bottom.

With ActiveSheet.TextBoxes(4)
.Font.Bold=True
' etc.
End With

 

[GlennUK]

Something like this, maybe:

        For Each tb In ActiveSheet.OLEObjects
            tb.Object.FontName = "Arial"
            tb.Object.FontBold = True
        Next

... which will change all ActiveX objects. Or are there other objects in the sheets that you don't want to process?