Sub FormFonts(strFont As String)
On Error GoTo FormFonts_Err
Dim frmCurrent As Form
Dim ctlControl As Control
For Each frmCurrent In Forms
For Each ctlControl In frmCurrent.Controls
ctlControl.FontName = strFont
Next
Next
FormFonts_Exit:
Exit Sub
FormFonts_Err:
If Err.Number = 438 Then
Resume Next
Else
MsgBox Err.Description
Resume FormFonts_Exit
End If
End Sub