Hi,

is there a way to clear all the etxtboxes in a form (something like
fmTest.AllTextBoxes.Clear) rather than having to list them individually?

TIA

Dave

There's always a way...

Private Sub cmdNewPT_Click()
Dim C As MSForms.Control
For Each C In Me.Controls
If TypeOf C Is MSForms.TextBox Then
C.Text = ""
End If
Next C
End Sub

HTH,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Risky Dave" wrote:

> Hi,
>
> is there a way to clear all the etxtboxes in a form (something like
> fmTest.AllTextBoxes.Clear) rather than having to list them individually?
>
> TIA
>
> Dave

Assuming fmTest is a UserForm, give this code a try...

Dim C As Object
For Each C In Me.Controls
If TypeName(C) = "TextBox" Then C.Text = ""
Next

--
Rick (MVP - Excel)


"Risky Dave" <(E-Mail Removed)> wrote in message
news:49F95ABB-8B1C-404E-B7FA-(E-Mail Removed)...
> Hi,
>
> is there a way to clear all the etxtboxes in a form (something like
> fmTest.AllTextBoxes.Clear) rather than having to list them individually?
>
> TIA
>
> Dave

Both,

Many thanks

"Risky Dave" wrote:

> Hi,
>
> is there a way to clear all the etxtboxes in a form (something like
> fmTest.AllTextBoxes.Clear) rather than having to list them individually?
>
> TIA
>
> Dave