Change fonts of controls on a form
Sub FormFonts (strFont As String) Dim frmCurrent As Form Dim ctlControl As Control For Each frmCurrent In Forms For each ctlControl In frmCurrent.Controls ctlControl.FontName = strFont Next Next End Sub