Sub main() For Each frmCurrent In Forms For Each ctlControl In frmCurrent.Controls If ctlControl.Type <> acCheckBox Then ctlControl.font = strFont End If Next Next End Sub