Option Explicit

'/////////////////////////////////////////////////////

'// Amended 14th Feb 2003 - suggestion by Juan Pablo G.

'// International versons may NOT recognise TRUE

'// Suggestion use =1 which evaluates to TRUE,

'// in fact any number that <> 0

'////////////////////////////////////////////////////



Const iInternational As Integer = Not (0)



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim iColor As Integer

'// Amended routine found on this Web site

'// Note: Don't use IF you have Conditional

'// formating that you want to keep!



'// On error resume in case

'// user selects a range of cells

On Error Resume Next

iColor = Target.Interior.ColorIndex

'// Leave On Error ON for Row offset errors



If iColor < 0 Then

    iColor = 36

Else

    iColor = iColor + 1

End If



'// Need this test incase Font color is the same

If iColor = Target.Font.ColorIndex Then iColor = iColor + 1



Cells.FormatConditions.Delete



'// Horizontal color banding

With Range("A" & Target.Row, Target.Address) 'Rows(Target.Row)

    .FormatConditions.Add Type:=2, Formula1:=iInternational 'Or just 1 '"TRUE"

    .FormatConditions(1).Interior.ColorIndex = iColor

End With



'// Vertical color banding

With Range(Target.Offset(1 - Target.Row, 0).Address & ":" & Target.Offset(-1, 0).Address)

    .FormatConditions.Add Type:=2, Formula1:=iInternational 'Or just 1 '"TRUE"

    .FormatConditions(1).Interior.ColorIndex = iColor

End With



End Sub