title: Macro that automatically formats cell when value is entered. (convert macro to the event macro?)
body: <p>I've got a spreadsheet, where I'd like A:A range to be formatted automatically so that characters will show in red and digits stay the same color. The following macro seems to work OK, but I need to manually run it every time I change value in the cell:</p>
  
  <pre><code>Sub Red_text()
  
  Dim i As Integer
  Dim MyString As String
  
  MyString = ActiveCell.Value
  
  For i = 1 To Len(MyString)
      If IsNumeric(Mid(MyString, i, 1)) = False Then
          ActiveCell.Characters(i, 1).Font.Color = RGB(247, 66, 66)
      End If
  Next i
  
  End Sub
  </code></pre>
  
  <p>So basically I need to change it into an event macro that will reformat the current cell every time it is edited. And limit this behavior to A:A range.</p>
  
  <p>Any help would be greatly appreciated!!</p>