Selecting text boxes code

[Bourbon]

What would a code that would say:

Select all the text boxes in columm E......

Thanks,
B

 

[Jon Peltier]

This will do it:

Sub SelectBoxesInColumnE()
Dim myTextBoxes() As String
Dim myBox As Object
Dim iBox As Integer
With ActiveSheet
iBox = 0
For Each myBox In .TextBoxes
If myBox.TopLeftCell.Column = 5 Then
iBox = 1 + iBox
ReDim Preserve myTextBoxes(1 To iBox)
myTextBoxes(iBox) = myBox.Name
End If
Next
.TextBoxes(myTextBoxes).Select
End With
End Sub

- Jon