В той теме шёл разговор про расформатирование всего, что вне Selection  
И насколько я понял, вы как таковой диапазон вне Selection целиком не определяете, а вычисляете по очереди диапазоны столбцов и строк, лежащих вне Selection и расформатируете каждый из них.  
А как такового диапазона "Outside_Selection" в вашем примере не формируется...  
Или я не так понял?

{quote}{login=Alex_ST}{date=02.03.2010 03:41}{thema=Как без цикла инвертировать выделение?}{post}В топике "Как расформатировать весь лист кроме выделенного диапазона?" ... приведённый по ссылке макрос:  
Sub InvertSelection()  
...  
End Sub  
работает не со всем листом, а только с UsedRange.{/post}{/quote}  
Alex_ST, не имеет смысла очищать форматы вне диапазона UsedRange, потому что там нет никаких форматов. Может, уточните с какой целью Вам требуется выделять ячейки и вне диапазона UsedRange, вдруг это тоже не имеет смысла? :)

Алекс, но ведь форматированная ячейка уже попадает в UsedRange. А если ячейка не форматирована - зачем её расформатировать? :-)

Уж не помню, на каком форуме (пришел туда по ссылке из одной из тем Планеты), но там сравнивались достоинства и недостатки различных методов определения последней ячейки листа (UsedRange, xlLastCells и т.д., точно не помню...).    
И там как раз и писАлось про такой недостаток UsedRange

Ну, может быть оно и так, но всё равно, даже UsedRange может быть очень большим.  
Поэтому вопрос про инверсию селекции БЕЗ ЦИКЛА всё равно остаётся открытым.  
 
Ведь есть же такая удобная команда Intersect ...  
Эх! Была бы в VBA команда, обратная Intersect (NonIntersect :-), возвращающая диапазон, состоящий из непересекающихся частей диапазонов-аргументов, проблем бы не было во многих случаях... Но мечтать не вредно.

Попробуйте на листе проставить границы ВСЕХ ячеек и увидите, что с UsedRange всё-таки глючит...  
Я сегодня попробовал собирать диапазоны выше, ниже, правее и левее Selection при помощи Union:  
Sub FastInvertSelection()  
  Dim rAbove As Range, rBelow As Range, rLeft As Range, rRight As Range   ' диапазоны выше, ниже, правее и левее Selection  
  Dim rOutside As Range   ' диапазон "вне Selection"  
  Dim selLeft As Long, selTop As Long, selRight As Long, selBottom As Long   ' границы Selection  
  Dim iLastRow As Long, iLastClm As Long   ' последние ряд и столбец листа  
  ' определяем границы  
  iLastRow = ActiveSheet.Rows.Count  
  iLastClm = ActiveSheet.Columns.Count  
  With Selection  
     selLeft = .Column: selRight = .Column + .Columns.Count  
     selTop = .Row: selBottom = .Row + .Rows.Count  
  End With  
  ' устанавливаем диапазоны выше, ниже, правее и левее Selection  
  If selLeft > 1 Then   ' если Selection не "прижато" к левой границе ActiveSheet  
     Set rLeft = Range(Cells(1, 1), Cells(iLastRow, selLeft - 1))  
  End If  
  If selTop > 1 Then   ' если Selection не "прижато" к верхней границе ActiveSheet  
     Set rAbove = Range(Cells(1, 1), Cells(selTop - 1, iLastClm))  
  End If  
  If selRight < ActiveSheet.Columns.Count Then   ' если Selection не "прижато" к правой границе ActiveSheet  
     Set rRight = Range(Cells(1, selRight), Cells(iLastRow, iLastClm))  
  End If  
  If selBottom < ActiveSheet.Rows.Count Then   ' если Selection не "прижато" к нижней границе ActiveSheet  
     Set rBelow = Range(Cells(selBottom, 1), Cells(iLastRow, iLastClm))  
  End If  
  ' собираем из кусочков диапазон "вне Selection"  
  Set rOutside = Union(rAbove, rLeft, rBelow, rRight)  
 
  rOutside.Select  
End Sub  
 
Проблема встала, что если Selection "прижато" хотя бы к одной из границ листа, соответствуюший диапазон = Nothing и Union с ним работать отказывается...  
Ну не перебирать же 16 комбинаций из 4-х диапазонов, любой из которых может быть Nothing ...  
А как применить обработчик ошибок, что-то никак не соображу....

Гарантия истекла - снимаю :)  
Взамен - 2 варианта инвертирования выделения.  
Работают быстро, со всеми ячейками листа, поддерживается выделение нескольких несмежных диапазонов. Первый вариант предпочтительнее, так как работает и при защищенной структуре книги.  
 
Sub InverseSelection1()  
 Dim a As String  
 a = Selection.Address  
 With ActiveSheet  
   With Workbooks.Add  
     With ActiveSheet  
       .Cells.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="0"  
       .Range(a).ClearFormats  
       a = .Cells.SpecialCells(xlCellTypeAllFormatConditions).Address  
     End With  
     .Close False  
   End With  
   .Range(a).Select  
 End With  
End Sub  
 
Sub InverseSelection2()  
 Dim a As String  
 a = Selection.Address  
 With ActiveSheet  
   With Worksheets.Add  
     Application.DisplayAlerts = False  
     .Cells.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="0"  
     .Range(a).ClearFormats  
     a = .Cells.SpecialCells(xlCellTypeAllFormatConditions).Address  
     .Delete  
     Application.DisplayAlerts = True  
   End With  
   .Range(a).Select  
 End With  
End Sub

Алекс, в который раз перечитываю ветку и не могу понять - зачем выделять (инверсно) весь лист? Ведь за пределами UsedRange ЧИСТО! Что там расформатировать?

The_Prist,  
к сожалению ваш пример не учитывает возможности примыкания Selection к последней строке или столбцу (при выделении целиком столбца или строки), поэтому при таких условиях даёт ошибку...  
Я это пытался исправить сам ещё вчера (см. мой пост от 03.03.2010, 17:27 )  
но так и не смог разобраться, как командой Union можно объединить 4 диапазона, любой из которых модет оказаться  = Nothing (как раз если Selection - целиком строка или столбец)?  
НаписАл пока  
  Select Case True  
с 15-ю вариантами выбора диапазонов, которые можно объединять т.к. они не равны Nothing ...  
работает, конечно, но уж больно громоздко.  
А подправить ваш метод объединения с использованием объекта Err мне не по зубам.  
 
А в самом начале макроса, наверное, на всякий случай вставить:  
  If Not TypeName(Selection) = "Range" Then Exit Sub