Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
[COLOR="Lime"]'If InStr(Target.Address, ":") = 0 And InStr(Target.Address, ",") = 0 Then[/COLOR]
Application.EnableEvents = False
Target.Interior.ColorIndex = 8
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
[COLOR="lime"]'End If[/COLOR]
End Sub