Maybe Select Case

[Titian]

I have a simple means of highlighting each changed cell in a worksheet:-

Private Sub Worksheet_Change(ByVal Target As Range)
' Each time a cell is changed the FILL & FONT colours are automatically 
' changed as per following settings

    Target.Font.ColorIndex = 1
    ' 1-Black, 2-White
    
    Target.Interior.ColorIndex = 6
    ' 3-Red, 4-Green, 5-Dk Blue, 6-Yellow
End Sub

What I would like to do is to have the code recognise which COLUMN is being changed and to apply a different set of Font & Fill colours accordingly, maybe via a CASE statement.

Your help is appreciated.

 

[VoG]

Try like this

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iCol As Long, fCol As Long
Select Case Target.Column
    Case 1: fCol = 1: iCol = 3
    Case 2: fCol = 2: iCol = 4
    Case Else: fCol = 1: iCol = 5
End Select
' Each time a cell is changed the FILL & FONT colours are automatically
' changed as per following settings

    Target.Font.ColorIndex = fCol
    ' 1-Black, 2-White
    
    Target.Interior.ColorIndex = iCol
    ' 3-Red, 4-Green, 5-Dk Blue, 6-Yellow
End Sub

 

[Titian]

Thanks again Peter, spot on.