Private Sub cmdForEachWith_Click() Dim ctl As Control For Each ctl In Controls With ctl .ForeColor = 16711680 .FontName = "Arial" .FontSize = 14 End With Next ctl End Sub