Dim mpOLE As Object
For Each mpOLE In ActiveSheet.OLEObjects
If TypeName(mpOLE.Object) = "TextBox" Then
mpOLE.Delete
End If
Next mpOLE


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Darin Kramer" wrote in message
...


Hi There,

I have a sheet called "Master" on which through macros several text
boxes have been inadvertenly pasted. I want to run a macro that will
select and delete all text boxes on a sheet (irrespecitve of the text
box number...)

Thanks!!!

Regards

D

*** Sent via Developersdex http://www.developersdex.com ***