For nIFor = 1 To ThisForm.ControlCount If Type("ThisForm.Controls(nIFor).ControlSource") # "U" If ThisForm.Controls(nIFor).ControlSource = "X" *** Your Code Endif Endif EndFor