неужели никто не сталкивался с такой необходимостью

Вот 2 макроса. 1-й проверяет, есть ли группировка строк, а 2-й проверяет, есть ли группировка столбцов на активном листе  
 
Sub CheckRowsForGroup()  
Dim iRow As Range  
   For Each iRow In ActiveSheet.UsedRange.Rows  
       If iRow.OutlineLevel > 1 Then  
           MsgBox "На активном листе есть группировка строк!", 64, "Группировка строк"  
           Exit Sub  
       End If  
   Next  
   MsgBox "На активном листе нет группировки строк!", 64, "Группировка строк"  
End Sub  
 
 
Sub CheckColumnsForGroup()  
Dim iCol As Range  
   For Each iCol In ActiveSheet.UsedRange.Columns  
       If iCol.OutlineLevel > 1 Then  
           MsgBox "На активном листе есть группировка столбцов!", 64, "Группировка столбцов"  
           Exit Sub  
       End If  
   Next  
   MsgBox "На активном листе нет группировки столбцов!", 64, "Группировка столбцов"  
End Sub  
 
P.S. Основано на основе макросов из этой темы с соседнего форума    
http://forum.sql.ru/forum/actualthread.aspx?tid=357196

Pavel55 а может ты знаешь ответ на еще один подобный вопрос!  
Как определить факт наличия или отсуствия выделенных ячеек (например, после действия SpecialCells). В этом случае также программа будет ругаться если производить действия с отсутствием выделенных ячеек.  
Заранее благодарю!!

{quote}{login=Артем}{date=31.10.2008 02:04}{thema=}{post}всегда есть хотя бы одна выделенная ячейка{/post}{/quote}  
 
Тогда уточняю....  
одна или более одной выделенной ячейки

{quote}{login=}{date=31.10.2008 09:58}{thema=Re: }{post}{quote}{login=Артем}{date=31.10.2008 02:04}{thema=}{post}всегда есть хотя бы одна выделенная ячейка{/post}{/quote}  
 
Тогда уточняю....  
одна или более одной выделенной ячейки{/post}{/quote}  
Ну и уточнение. Одна ведь ВСЕГДА есть. Значит проверка по ТАКОМУ "уточненному" условию всегда даст истину. Правильно вам Павел пишет: БОЛЬШЕ одной.

Евгений, думаю, что если бы сразу повели разговор о проверке наличия на листе формул, ответ давно бы получили. Вот посмотрите обсуждение:  
http://www.planetaexcel.ru/forum.php?thread_id=3405  
Может что полезное для Вас найдётся.

Не знаю, правильно или нет  (в плане, может как-то короче можно или нет)  
 
Sub Макрос1()  
Dim FormulasRng As Range  
 
   On Error Resume Next  
   Set FormulasRng = Selection.SpecialCells(xlCellTypeFormulas, 23)  
   If Not FormulasRng Is Nothing Then  
       FormulasRng.Select  
       MsgBox "Формулы на листе выделены!", 64, ""  
   Else  
       MsgBox "Формул на листе нет!", 48, ""  
   End If  
   On Error GoTo 0  
End Sub

Юрий, а вы пробовали запустить свой макрос в Excel?

Павел, ну сколько можно томить неизвестностью? Я уже (кроме синтаксиса) проверил: орфографию, стилистику, рифму... Чта Вас смутило?

Угу, если на листе не будет ни одной формулы, то выскочит ошибка 1004.

Вы правильно поняли мою проблему (именно выскакивание ошибки 1004)

Юрий, немного не так - проверьте. У Павла - коректнее.  
Можно еще немного упростить:  
Sub Макрос()  
 On Error Resume Next  
 With Selection.SpecialCells(xlCellTypeFormulas, 23): End With  
 If Err = 0 Then  
   MsgBox "Есть формулы"  
 Else  
   MsgBox "Нет формул"  
 End If  
End Sub  
 
Но методу SpecialCells() доверять можно не всегда.  
Попробуйте, например, в ячейку A1 ввести любую формулу, например =1+1, а ячейку A2 оставьте пустой.  
Затем скопируйте эту парочку ячеек A1:A2 в диапазон, например, A3:A17000  
Выделите всю колонку A:A и попробуйте теперь выделить только формулы с помощью:  
Sub НеВсегдаДоверяйтеSpecialCells()  
 Selection.SpecialCells(xlCellTypeFormulas, 23).Select  
End Sub  
Выделенной останется вся колонка A:A  
;-)

Павел, все верно.  
Для .SpecialCells() существует ограничение - не более 8192 областей (Areas).  
В моём примере каждая пара смежных ячеек - это область, так как одна из ячеек пустая.  
Если выделить 8192 таких пар ячеек A1:A16384, то все сработает нормально.    
Но стоит выделить на одну ячейку больше A1:A16385 и лимит будет превышен, и метод .SpecialCells() соврет.  
Особое коварство этого метода заключается в том, что при превышении лимита областей в обрабатываемом диапазоне .SpecialCells() возвращает не особые (формулы и т.п.), а все ячейки.

угу) Пока писал, вы уже ответили )