Sub Form_Current() Dim ctl as Control For Each ctl In Controls If TypeOf ctl Is TextBox Then If IsNull(ctl.Value) Then ctl.BackColor = vbCyan Else ctl.BackColor = vbWhite End If End If Next ctl End Sub