Delete text boxes within a selection area

[Geojim]

Greetings,

Hopefully the title says it all. I'd like to be able to select a range of cells which has text boxes super imposed on it, and delete those text boxes. I can't find anything, is it possible? I'm using excel 2010 on a xlsm file.

Cheers,
Geojim

 

[Andrew Poulsom]

Where are your TextBoxes from?

 

[Geojim]

They are copies of other text boxes in the document. The file was originally a .xls if that helps date it. Are there different types of textbox?

 

[Andrew Poulsom]

A TextBox can be from the Drawing Toolbar or the Control Toolbox (ActiveX).

 

[Geojim]

From the Drawing Toolbar...

 

[Andrew Poulsom]

Try:

Sub Test()
    Dim TB As TextBox
    With ActiveSheet
        For Each TB In .TextBoxes
            If Not Application.Intersect(TB.TopLeftCell, Selection) Is Nothing Then
                TB.Delete
            End If
        Next TB
    End With
End Sub

 

[Geojim]

Genius, works a charm!

Many thanks.