Just run through the cells with a loop.
VB Code:
  1. For i = 1 To 1000

  2.   If Range("$A$" & i).Text = "" Then Exit Sub

  3.   

  4.      Range("$A$" & i).Interior.Color = Range("$A$" & i).Text

  5. Next