Hi

Try this, and please note, that excel does not accept spaces in textbox
names.

Dim found As Boolean
found = False
For Each bx In Worksheets("Expense").Shapes
If bx.Name = "TextBox2" Then
Worksheets("Expense").Shapes("TextBox2").Delete
found = True
Exit For
End If
Next bx

Regards,
Per

"Jim G" skrev i meddelelsen
...
I tried this to no avail:
Found = False
For Each bx In ActiveSheet.TextBoxes
If bx.Name = "textbox 2" Then '<<<added the space
Worksheets("Expense").TextBoxes("textbox 2").Delete
Found = True
Exit For
End If
Next bx

What would I be missing?
--
Jim


"joel" wrote:


Found = False
For Each bx In ActiveSheet.TextBoxes
If bx.Name = "textbox2" Then
Found = True
Exit For
End If
Next bx


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=146348

.