Private Sub cmdForEachNext_Click() Dim ctl As Control For Each ctl In Controls ctl.FontSize = 8 Next ctl End Sub