Hi Vikram,

This should help

Dim i As Long
Dim OLEObject As Object

For Each OLEObject In ActiveSheet.OLEObjects
If TypeOf OLEObject.Object Is MSForms.TextBox Then
i = i + 1
End If
Next OLEObject
MsgBox i

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Vikram Kohli" wrote in message
...
Hi,

I want to know the number of textboxes that is placed on a sheet, and
their names. How can i get the data from each control at runtime as i don't
know how many controls are placed on that particular sheet?

Thanks