>I assume you only want to work with text boxes so TypeOf limits this accordingly.
>
>

>Dim ctl As Control
>
>For Each ctl in Controls
>   If TypeOf ctl is TextBox Then
>      ctl.Text = UCase(ctl.Text)
>   End If
>Next 'ctl
>

I suppose I would put this code in the form.BeforeUpdate to clean up all the text. But it would be much nicer for the users to have their text cleaned up in each textbox.Lostfocus. I don't feel like typing similar but not identical code into every .Lostfocus event.