Replies

Deb,

Sounds like you got the Active X version somehow.
When you right-click the control, if the pop-up menu does NOT have an “Assign Macro…” item then its an Active X control.

Regards,

Jim Cone

Add a button to the spreadsheet that contains the phone numbers.
The phone numbers should be listed in a column.
Attach the following code to the button:
—————————————————————————————–
Sub CellToDialer() ‘by John Walkenbach
‘ Transfers active cell contents to Dialer
‘ And then dials the phone
‘ Modified by Jim Cone on Jan 18, 2002

Dim CellContents As String
Dim AppName As String
Dim AppFile As String
Dim TaskID As Variant

‘ Get the phone number
CellContents = ActiveCell.Value
If Len(CellContents) < 7 Then
MsgBox "Select a cell that contains a phone number.", _
vbInformation
Exit Sub
End If
' Activate (or start) Dialer
AppName = "Dialer"
' USE THE FULL FILE PATH APPROPRIATE FOR YOUR OPERATING SYSTEM
AppFile = "C:Program FilesWindows NTdialer.exe"
On Error Resume Next
' This activates the dialer if it showing on the desktop
AppActivate (AppName)
If Err.Number 0 Then
Err = 0
‘ This activates the dialer by opening(running) the file
TaskID = Shell(AppFile, vbNormalFocus)
If Err 0 Then
MsgBox “Can’t start ” & AppFile, vbExclamation
Exit Sub
End If
End If

‘ Transfer cell contents to Dialer
Application.SendKeys “%n” & CellContents, True

‘ Click Dial button
Application.SendKeys “%d”
‘ Application.SendKeys “{TAB}~”, True

‘ Selects the next telephone number in the column.
ActiveCell(2, 1).Select
‘ The macro button must now be clicked twice to dial the next
‘ number in the column.
End Sub
——————————————————————————————

Regards,

Jim Cone

JB,

Yes there is. See the Microsoft knowledge base articles:

“Limits of PivotTables in Microsoft Excel…”
Q157486 – XL 97
Q211517 – XL 2000

If you are using Internet Explorer you can go directly to the articles by
just entering the following in the address bar: mskb Q157486

Regards,

Jim Cone
San Jose, CA