>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.