Counting textboxes
oUF is the userform that it is being called from. If that code is in the
userform, it is not necessary, but if not, you can pass the Me object which
refers to the container object (the userform)
numCBs = countTextboxes(Me)
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"franzklammer" wrote in message
...
Hello! I got this piece of code from someone who helped me with a function
that counts the number of textboxes in a user form. However I do not not
what
what 'oUF' means and how to use the function. I have never used functions
before so I do not know how to call it. I tried useing 'Call
countTextboxes'
in another Sub but I suppose that you need something else...
Public Function countTextboxes(oUF As UserForm) As Long
Dim iCtrl As Long
For iCtrl = 0 To oUF.Controls.Count - 1
If TypeName(oUF.Controls(iCtrl)) = "TextBox" Then
countTextboxes = countTextboxes + 1
End If
Next iCtrl
End Function
|