The For Each...Next statement executes a group of statements on each member of an array or collection
Private Sub cmdForEachNext_Click() Dim ctl As Control For Each ctl In Controls ctl.FontSize = 8 Next ctl End Sub