Как рандомизировать шрифт? - VBA

Sub RandomFont()
Const FNTS = "Times New Roman,Arial,Courier New" 'список шрифтов через запятую
Dim c As Range, aFnts() As String, ub As Long
  Application.ScreenUpdating = False
  aFnts = Split(FNTS, ",")
  ub = UBound(aFnts) + 1
  Set c = ActiveDocument.Characters(1)
  On Error GoTo 1
  Do
    c.Font.Name = aFnts(Int(Rnd * ub))
    Set c = c.Next
  Loop
1 Application.ScreenUpdating = True
End Sub