Right click sheet tabview codecopy/paste this. Should do what is desired.

Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Target) = "A" And Target.Interior.ColorIndex = 3 Then
Target.Offset(, 1).Interior.ColorIndex = 3
End If
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"cougarflank" wrote in message
...
I want to format my spreadsheet so that when a cell has an "a" in it and is
colored red, the cell immediately to its right will also be colored red.
Is
this possible through conditional formatting or VBA? Thanks.