change selected cell by adding interior color

[Guidolavespa]

How to chnage slected cell in VB yellow and offset left 2 cells in green. By next click derase this and do same with new selcted cells.
I have this working but not erasing...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Not ActiveCell.Column <> 4 Then
    
  With Target
  
    .Worksheet.Cells.FormatConditions.Delete
    .FormatConditions.Add xlExpression, , "TRUE"
    .Interior.Color = vbYellow
    .Offset(0, -3).Interior.Color = vbGreen
    End With
   
 
End If
End Sub

 

[rollis13]

If it doesn't messup and create other issues in your project you could use:

Cells.ClearFormats

instead of:

.Worksheet.Cells.FormatConditions.Delete
.FormatConditions.Add xlExpression, , "TRUE"

 

[Guidolavespa]

Hi, Thks this is working great !!