Reset 108 text boxes

[Tempy]

Hi all,

I need to reset 108 text boxes, is there a way to do them all at once
without unloading the form ?

Tempy

 

[Tom Ogilvy]

Dim ctl as Control
for each ctl in Userform1.controls
if typeof ctl is MsForms.TextBox then
ctl.Value = ""
end if
Next

 

[Tempy]

Thanks so much Tom, great weekend

Tempy