On Error Resume Next

Set rng = Application.InputBox(prompt:="Введите диапазон", Type:=8)

'Фрагмент кода для инверсии выделения
If Not TypeName(Selection) = "Range" Then Exit Sub
    With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
    Dim selAddr As String: selAddr = Selection.Address
    With ActiveSheet
        With Workbooks.Add
            With ActiveSheet
            .Cells.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="0"
            .Range(selAddr).ClearFormats
            selAddr = .Cells.SpecialCells(xlCellTypeAllFormatConditions).Address
            End With
            .Close False
        End With
        .Range(selAddr).Select
    End With
    With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With
'Инверсивное выделение помещаю в переменную
Set rngOut = Selection


Intersect(rngOut.DirectDependents, rng).Interior.Color = 255


End Sub