Change Event Example

This example changes the color of changed cells to blue.

Private Sub Worksheet_Change(ByVal Target as Range)
    Target.Font.ColorIndex = 5
End Sub