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