title: Change font colour of a textbox
body: <p>I want to open an Excel file, go to the first sheet in the file, and change the text colour of textbox1 to red.</p>
  
  <p>The only way I have managed to do it so far is via recording the macro.</p>
  
  <p>It gives me</p>
  
  <pre><code>Workbooks.Open (fPath &amp; sName)
  
              Sheets(1).Select
  
    ActiveSheet.Shapes.Range(Array("TextBox1")).Select
  
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 262).Font.Fill
      .Visible = msoTrue
      .ForeColor.RGB = RGB(255, 0, 0)
      .Transparency = 0
      .Solid
      End With
  </code></pre>
  
  <p>That's fine; however the length of the text is variable so I get an error with the code if it is less than the 262 characters above.</p>
  
  <p>I tried to introduce</p>
  
  <pre><code>CharCount = Len(textbox1.Text)
  </code></pre>
  
  <p>However I get  error 424 Object required</p>
  
  <p>I initially tried</p>
  
  <pre><code>Sheets(1).Select
  ActiveSheet.TextBox1.ForeColor = RGB(255, 0, 0)
  </code></pre>
  
  <p>but got error 438 Object doesn't support this property or method.</p>