Controls and Errors : Form Control « Forms « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Forms
3. Form Control

Controls and Errors

 
    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

 

Related examples in the same category