Есть ли в природе макрос позволяющий делать звонки через модем ?  
Те в ячейке набит номер телефона - нажимаем на него - идет звонок  
 
Такое возможно ?

Как сделать макрос который на 1 срабатывание группирует листы по ЦВЕТУ  
причем например синие листы поставить первыми    желтые-вторыми  красные- третьими желтые-четвертыми   без цвета - пятыми  
 
а на на 2 срабатывание группирует листы по имени 1,2,3,4,5 и тд  
 
возможно ли такое сделать ?

помогите с макросом как правильно вставить в макрос  
With Selection.Interior  
       .ColorIndex = 35  
       .Pattern = xlSolid  
 
цвет ячейки выделенной должен цветом выделятся  при уходе с ячейки  
цвет перескакивает на другую  и только в диапазоне b4:b400  
 
Public Sub SearshList1()  
Dim text$  
text = Sheets(1).TextBox1.text  
Dim iRange As Range, iValue As String  
If Intersect(Range("B4:B300"), ActiveCell) Is Nothing Then [b4].Select
iValue = text  
Set iRange = ActiveSheet.Range("B4:B300").Find(What:=text, After:=ActiveCell, _  
 LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _  
 MatchCase:=False, SearchFormat:=False)  
If Not iRange Is Nothing Then  
   iRange.Activate  
   'With Selection.Interior  
       '.ColorIndex = 35  
       '.Pattern = xlSolid  
 Else  
   MsgBox "Такого названия нет в списке ! "  
   Range("b4").Activate  
End If  
 End Sub