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