Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    On Error Resume Next

        Cells.FormatConditions.Delete

        With Target
        
            .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
            
            With .FormatConditions(1).Interior
                .ThemeColor = xlThemeColorAccent4
                .TintAndShade = 0.8
            End With
        
        End With

        With Target.EntireColumn
            
            .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
            
            With .FormatConditions(2).Interior
                .ThemeColor = xlThemeColorAccent4
                .TintAndShade = 0.8
            End With
        
        End With

        With Target.EntireRow
            
            .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
            
            With .FormatConditions(3).Interior
                .ThemeColor = xlThemeColorAccent4
                .TintAndShade = 0.8
            End With
        
        End With

End Sub