title: Error with Characters.Font properties from VBA
body: <p>I wrote some code to look at font properties of Excel cells text.
  This simple test loops on each cell character. The program will fail with error 5 when reaching a character with a different font color. </p>
  
  <pre><code>Sub ExcelTextFontProperties()
  Dim r As Range
  Set r = ActiveSheet.Range("A1")
  Debug.Print r.Value
  For i = 1 To Len(r.Value)
      With r.Characters(i, 1).Font
      Debug.Print Str(i) &amp; "-" &amp; r.Characters(i, 1).Text &amp; "-" &amp; "-" &amp; .Background &amp; _
      "-" &amp; .Bold &amp; "-" &amp; .Color &amp; "-" &amp; .ColorIndex &amp; "-" &amp; .Creator &amp; "-" &amp; .FontStyle &amp; "-" &amp; .Italic &amp; _
      "-" &amp; .Name &amp; "-" &amp; .Size &amp; "-" &amp; .Strikethrough &amp; "-" &amp; .Subscript &amp; _
      "-" &amp; .Superscript &amp; "-" &amp; .ThemeColor &amp; "-" &amp; .ThemeFont &amp; "-" &amp; .TintAndShade
      End With
  Next i
  End Sub
  </code></pre>