Sub Test() If Not FontInstalled("Arial") Then MsgBox "Font 'Arial' is not installed on your system" End IfEnd Sub'---- The following function determines if the given font is installedPrivate Function FontInstalled(Name As String) As Boolean Dim b As Boolean, n As Long b = False For n = 1 To FontList.Count If UCase$(FontList(n)) = UCase$(Name) Then b = True Exit For End If Next n FontInstalled = bEnd Function