Hi Franz,

oUF is simply an object variable for a userform.

To demonstrate the use of your function, try:

'=============
Public Sub TestIt()
Dim iCtr As Long

iCtr = countTextboxes(UserForm1)

MsgBox iCtr
End Sub
'<<=============

---
Regards,
Norman



"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