Извините что побеспокоил вас на этом форуме.Больше вопросов задавать не буду.

по поводу проблемы уже писал - есть куча клиентов которых надо обзванивать периодически - клавиши телефона жать замучаешься - поэтому клиентов и телефоны в таблицу и простым кликом на телефоне - дозвон идет (по моему эта проблема интересует многих и не в модемах и отладке программы дело)  
 
-по поводу  вариантов - их много но ни один толком не работает  - один работает у меня только от вас уважаемый KukLP  - но в вашем варианте не по клику на ячейку с телефоном  а принудительно телефон в макрос вбивать надо  
 
Поэтому и ищу выход советуюсь - что в этом плохого ?

сделал но макрос затыкается на строке MSComm1.CommPort = 4  
 
Что делать - где поправить ?

порт на модеме у меня Com4

вот вроде то что надо    только реализовать не смог  
http://compfaq.ru/Question.aspx?id=311b21b6-40c7-468b-901f-1404b262bf1d  
 
Из статьи  
 
Как сделать номеронабиратель?  
Вопрос:  
 
   Как сделать номеронабиратель, чтобы можно было позвонить модемом?  
     
Ответ:  
 
   Всё это вставь в лист Excel. Окно открывается если кликнуть на него в среде VB. На этом листе размести кнопки "CancelButton", "DialButton"; лабел "Status" и MSComm "MSComm1".  
   Потом пиши номер телефона в ячейке и дави кнопку DialButton.  
   Option Explicit  
   DefInt A-Z  
   Dim CancelFlag As Boolean  
   Private Sub CancelButton_Click()  
   CancelFlag = True  
   CancelButton.Enabled = False  
   End Sub  
   Private Sub DialButton_Click()  
   Dim Number$  
   On Error GoTo Err_click  
   Number$ = Selection.Value  
   If Number$ = "" And Not IsNumeric(Number$) Then Exit Sub  
   DialButton.Enabled = False  
   CancelButton.Enabled = True  
   Status = "Dialing - " + Number$  
   Dial Number$  
   DialButton.Enabled = True  
   CancelButton.Enabled = False  
   Err_click:  
   End Sub  
   Private Sub Dial(Number$)  
   Dim DialString$, FromModem$, dummy  
   ' AT is the Hayes compatible ATTENTION command and is required to send commands to the modem.  
   ' DT means "Dial Tone." The Dial command uses touch tones, as opposed to pulse (DP = Dial Pulse).  
   ' Numbers$ is the phone number being dialed.  
   ' A semicolon tells the modem to return to command mode after dialing (important).  
   ' A carriage return, vbCr, is required when sending commands to the modem.  
   DialString$ = "ATDP" + Number$ + ";" + vbCr  
   ' Communications port settings.  
   ' Assuming that a mouse is attached to COM1, CommPort is set to 2  
   MSComm1.CommPort = 4  
   MSComm1.Settings = "9600,N,8,1"  
   ' Open the communications port.  
   On Error Resume Next  
   MSComm1.PortOpen = True  
   If Err Then  
   MsgBox "COM2: not available. Change the CommPort property to another port."  
   Exit Sub  
   End If  
   ' Flush the input buffer.  
   MSComm1.InBufferCount = 0  
   ' Dial the number.  
   MSComm1.Output = DialString$  
   ' Wait for "OK" to come back from the modem.  
   Do  
   dummy = DoEvents()  
   DoEvents  
   ' If there is data in the buffer, then read it.  
   If MSComm1.InBufferCount Then  
   FromModem$ = FromModem$ + MSComm1.Input  
   ' Check for "OK".  
   If InStr(FromModem$, "OK") Then  
   ' Notify the user to pick up the phone.  
   Beep  
   MsgBox "Please pick up the phone and either press Enter or click OK"  
   Exit Do  
   ' Status = "Dialing - " + FromModem$ + " - " + Number$  
   ElseIf InStr(FromModem$, "BUSY") Then  
   Disconnect  
   Call Dial(Number$)  
   Exit Sub  
   ElseIf InStr(FromModem$, "Error") Then  
   MsgBox "Error " + FromModem$  
   Exit Do  
   End If  
   End If  
   ' Did the user choose Cancel?  
   If CancelFlag Then  
   CancelFlag = False  
   Exit Do  
   End If  
   Loop  
   Disconnect  
   End Sub  
   Private Sub DialButton_GotFocus()  
   Cells(Selection.Row, Selection.Column).Select  
   End Sub  
   Private Sub Status_Click()  
   On Error Resume Next  
   DialButton.Enabled = True  
   'QuitButton.Enabled = False  
   CancelButton.Enabled = True  
   ' Disconnect the modem.  
   MSComm1.Output = "ATH" + vbCr  
   ' Close the port.  
   MSComm1.PortOpen = False  
   End Sub  
   Public Sub Disconnect()  
   ' Disconnect the modem.  
   MSComm1.Output = "ATH" + vbCr  
   ' Close the port.  
   MSComm1.PortOpen = False  
   End Sub  
 
 
 
только для номеров телефонов надо будет диапазон f2:f100  
 
как реализовать то и посмотреть как работает ?

Public Com As New MSComm  
 
Sub ShowForm()  
   UserForm1.Show 0  
End Sub  
 
При попытке запуска макроса ругается на строку UserForm1.Show 0

http://www.planetaexcel.ru/forum.php?thread_id=15148  
 
вот вроде ваша тема номероопределитель

номероопределитель тоже актуально если он 10 цифр номера мобильника определит а не 7 как в АОНах

те готового решения нет    
-чтоб звонить с номера ячейки  
-телефон появлялся в контексном меню    
и можно позвонить если цифры набраны в определенном "телефонном"формате XXX-XX-XX  
 
есть тема на http://www.programmersforum.ru/showpost.php?p=268048&postcount=17  
и http://www.programmersforum.ru/showthread.php?t=50325 (но там звонки с мобильного)

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

а ваш пример с кнопкой лучше - быстрее и не моргает при выполнении макроса

простой пример перекраски 1 ярлыка если можно покажите

получилось вроде  
Юрий спасибо огромное за совет с примером  
 
а вот как по вашему совету перекрасить листы это не знаю к сожалению

я не силен в программировании по примерам только могу чтото сделать поэтому и прошу помощи

на вопрос зачем - ярлыки  красятся по опр условию ;условий штук 6;    
листов (ярлыков) в книге будет много    
 
важно отсортировать листы по цвету ярлыка чтоб наглядно было видно (а не смотреть по всей книге)

файл отредактировал

Осталалось 2 вопроса - как сделать  чтоб    
 
1   как задать цветам последовательность выстраивания при сортировке по цвету  
по условию синие листы поставить первыми    желтые-вторыми  красные- третьими зеленые-четвертыми   без цвета - пятыми  
 
 
2    как сделать одной кнопкой чтоб по 1 нажатию макрос1 выполнялся по 2 нажатию этой же кнопки-макрос2

Sub SortSheetsColor()  
   Dim I As Integer, J As Integer  
 
   For I = 1 To Sheets.Count - 1  
       For J = I + 1 To Sheets.Count  
           If UCase(Sheets(I).Tab.ColorIndex) > UCase(Sheets(J).Tab.ColorIndex) Then  
               Sheets(J).Move Before:=Sheets(I)  
           End If  
       Next J  
   Next I  
Sheets("Сорт листов").Select  
End Sub  
 
 
так сделал 2-м макросом по сортировке по цвету

с образцами цвета в ячейках на отдельном листе

http://www.planetaexcel.ru/tip.php?aid=50  написано про функцию  
   
   Public Function ColorIndex(Cell As Range)        
       ColorIndex = Cell.Interior.ColorIndex    
   End Function    
 
но это к ячейкам ...  
как то можно к листам привязать ?

сорри попутал определения

сортировка по цвету листов нужна  
в примере http://www.planetaexcel.ru/tip.php?aid=75 сортировка по имени листа  
 
файл подправил

группировку по имени листа нашел ввел в пример  
 
осталоссь только группировка по цвету и условиям (в файле отметил что надо)

Как сделать макрос который на 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