I have a situation where a named Text Box may or not have been deleted.

So

Sheets("Schedule").Shapes("JobTextBox").Delete

produces an error if the TextBox has already been deleted.



Any suggestions?



Francis Hookham

Hi Francis,

One way:

'=============>>
Public Sub Tester()
Dim SHP As Shape

On Error Resume Next
Set SHP = Sheets("Schedule").Shapes("JobTextBox")
On Error GoTo 0

If Not SHP Is Nothing Then
SHP.Delete
End If

End Sub
'<<=============

---
Regards,
Norman


"Francis Hookham" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I have a situation where a named Text Box may or not have been deleted.
>
> So
>
> Sheets("Schedule").Shapes("JobTextBox").Delete
>
> produces an error if the TextBox has already been deleted.
>
>
>
> Any suggestions?
>
>
>
> Francis Hookham
>

On Error Resume Next
Sheets("Schedule").Shapes("JobTextBox").Delete
On Error Goto 0



--
Hope that helps.

Vergel Adriano


"Francis Hookham" wrote:

> I have a situation where a named Text Box may or not have been deleted.
>
> So
>
> Sheets("Schedule").Shapes("JobTextBox").Delete
>
> produces an error if the TextBox has already been deleted.
>
>
>
> Any suggestions?
>
>
>
> Francis Hookham
>
>
>