Cellakijelölés témakörben nekem ezt dobta a gúgli.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.FormatConditions.Delete

With Target

.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"

.FormatConditions(1).Interior.ColorIndex = 24  'Ezt kell változtatni ha a sötétszürke nem tetszik.

End With

End Sub