Sub InvertSelection2()
      '---------------------------------------------------------------------------------------
      ' Procedure : InvertSelection
      ' Author    : :)
      ' URL       : http://www.planetaexcel.ru/forum.php?thread_id=14008
      ' DateTime  : 04.03.2010   00:17
      ' Purpose   : инвертировать Selection
      ' Notes     : Работает со всеми ячейками листа, поддерживается выделение нескольких несмежных диапазонов.
      ' Notes     : в процессе работы создаётся временная КНИГА, поэтому работает в том числе и при защищенной структуре книги
      '---------------------------------------------------------------------------------------
      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
End Sub