Automatic action!

Hi Mc Sherdi

I don't know about microSIP but I guess it works on hyperlinks (formed by the number and the "tel39:" prefix).

For a non-VBA way to do this, try this:

1. create a column to the right of your existing number column (say column D)
2. if there's a number in cell D2, copy and paste this into the formula bar in cell E2 (or change the bit in bold to refer to your number cell):

   =HYPERLINK(CONCATENATE("tel:39",D2))

   • The Concatenate bit joins the text "tel:39" to your number
   • The surrounding Hyperlink() makes the required link in the cell
3. That cell should now be "clickable"
4. To copy that formula down the column, move to E2 (or whatever) using the direction arrows from D2 or F2 (don't click in it!) then drag the little block symbol at the bottom right corner of the cell down as far as you need to - that will copy the formula to all those other cells and make them clickable with the number to their left.

You might then choose to hide the original column (say D) so only the clickable cells in E are visible.

Revision 1: if you have a little understanding of VBA, a macro solution could create the links "in situ" (so no formula or additional columns)

Revision 2: I decided to add a VBA solution I came up with (see attached file).  The code is as below (stored as a module) and works like this: pick a range of cells (e.g. those shaded pale yellow in my file) then press keys Ctrl+Shift+J- the cells which are numbers will be converted to hyperlinks which you should be able to click to dial (please confirm.

If that works then (better still), if you have that file open and your own file (with your numbers in, less the tel:39 bit) open, you can select cells (or a column) in your own file and type Ctrl+Shift+J, the macro will run and convert your numbers to hyperlinks as you require.

Here's the code that does that:

Sub AddTel39()
'
' Add "tel:39" to and hyperlink to cells in selection
'
' Keyboard Shortcut: Ctrl+Shift+J
'
 Dim jCell As Range
 With ActiveSheet
 For Each jCell In Selection
    If IsNumeric(jCell) And jCell <> "" Then
    jCell.Value = "tel:39" & jCell.Value
    r = jCell.Text
        .Hyperlinks.Add Anchor:=jCell, _
        Address:=r, _
        ScreenTip:="Call " & r
    End If
 Next jCell
 End With
 MsgBox "Done!"
End Sub

Please let me know if you have problems (or wait for another answer from someone else). If it solves your probem, then please Select this answer.