aktif hücre satır seçtiğimde koşullu biçimler kayboluyor

[koboy]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.FormatConditions.Delete
If Intersect(ActiveCell, [A4:W9999]) Is Nothing Then Exit Sub
Adres = "A" & Target.Row & ":W" & Target.Row
With Range(Adres)
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = 1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Font.ColorIndex = 6
.FormatConditions(1).StopIfTrue = False
End With

With ActiveCell
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = 3
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Font.ColorIndex = 6
.FormatConditions(1).StopIfTrue = False
End With

End Sub