I'm Sorry, they are textboxes from the Drawing toolbar

Thanks
CR


"Tom Ogilvy" wrote in message
...
What kind of Textboxes

for activeX textboxes

Sub AAAA()
Dim oObj As OLEObject
For Each oObj In ActiveSheet.OLEObjects
If TypeOf oObj.Object Is MSForms.TextBox Then
oObj.Object.Font.Size = 12
End If
Next

End Sub


--
Regards,
Tom Ogilvy



"CR" wrote in message
...
I have a workbook with 13 sheets, each sheet has 25 to 30 textboxes.
I would like to run a macro that will search the sheets, find the
textboxes
and change the font size. As usual I have had no luck coming up with one
on
my own.
Can anyone help?

Thanks
CR