Does anybody know a command to select text boxs from a worksheet?

I can select one by one but if there is a shortcut to select some 50-60
text boxes at a time?


--
Rafisahb
------------------------------------------------------------------------
Rafisahb's Profile: http://www.excelforum.com/member.php...o&userid=25312
View this thread: http://www.excelforum.com/showthread...hreadid=387956

I've done it using the Select Multiple Objects tool on the Drawing toolbar.

"Rafisahb" wrote in
message ...

Does anybody know a command to select text boxs from a worksheet?

I can select one by one but if there is a shortcut to select some 50-60
text boxes at a time?


--
Rafisahb
------------------------------------------------------------------------
Rafisahb's Profile:
http://www.excelforum.com/member.php...o&userid=25312
View this thread: http://www.excelforum.com/showthread...hreadid=387956

Hi Rafisahb,

If you are talking about ActiveX controls then try this:

Sub SelectActiveXTextBoxes()
Dim OLEobj As Excel.OLEObject

ReDim myArray(0)
For Each OLEobj In ActiveSheet.OLEObjects
If TypeOf OLEobj.Object Is MSForms.TextBox Then
myArray(UBound(myArray)) = OLEobj.Name
ReDim Preserve myArray(UBound(myArray) + 1)
End If
Next OLEobj

If UBound(myArray) 0 Then
ReDim Preserve myArray(UBound(myArray) - 1)
ActiveSheet.Shapes.Range(myArray).Select
End If
End Sub

Regards,
KL



"Rafisahb" wrote in
message ...

Does anybody know a command to select text boxs from a worksheet?

I can select one by one but if there is a shortcut to select some 50-60
text boxes at a time?


--
Rafisahb
------------------------------------------------------------------------
Rafisahb's Profile:
http://www.excelforum.com/member.php...o&userid=25312
View this thread: http://www.excelforum.com/showthread...hreadid=387956