Dim i On Error Resume Next For i = 0 To ControlCount - 1 If TypeName(Controls(i)) = "Edit" Then If Controls(i).Required Then Controls(i).Color = Application.BasicFunctions.StringToColor("Highlight") End If Next
it would make sense to wrap up as a generic script and just add to every form