title: Hyperlink in Excel not Clickable
body: <p>In my Excelsheet, i use a table with datasource from sql-server.
  One of the column includes the phone-number, another one the mailaddress.
  Now i want to create a hyperlink like <code>tel:09999999</code> or <code>mailto:test@test.com</code> to open the default windows-application for starting a call or writeing an email.
  The format of the cell is general.</p>
  
  <p>Unfortunally the hyperlink comes as plain-text not as hyperlink. I see the formula like <code>=hyperlink("tel:09999999";"09999999")</code>. When I click in the cell, press the <code>[F2]</code>-key and press return, then excel change the cell-value to a "correct" hyperlink.</p>
  
  <p>The second idea I trying was to write a macro for all this cells. but the performance is not ok, I have about 20000 rows with 5 columns, so excel run about 1minute only for creating the hyperlink.
  The Code looks like:</p>
  
  <pre class="lang-vb prettyprint-override"><code>lastrow = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row
  For i2 = 4 To lastrow
      'Phone1
      Worksheets("Report").Cells(i2, 11).Select
      If Len(Selection.Value) &gt; 0 Then
          ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="tel:" + CStr(Selection), TextToDisplay:=CStr(Selection)
      End If
  
      'Phone2
      Worksheets("Report").Cells(i2, 12).Select
      If Len(Selection.Value) &gt; 0 Then
          ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="tel:" + CStr(Selection), TextToDisplay:=CStr(Selection)
      End If
  
      'Phone3
      Worksheets("Report").Cells(i2, 13).Select
      If Len(Selection.Value) &gt; 0 Then
          ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="tel:" + CStr(Selection), TextToDisplay:=CStr(Selection)
      End If
      'Mail1
      Worksheets("Report").Cells(i2, 14).Select
      If Len(Selection.Value) &gt; 0 Then
          ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="mailto:" + CStr(Selection), TextToDisplay:=CStr(Selection)
      End If
  
      'Mail2
      Worksheets("Report").Cells(i2, 15).Select
      If Len(Selection.Value) &gt; 0 Then
          ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="mailto:" + CStr(Selection), TextToDisplay:=CStr(Selection)
      End If
  Next i2
  </code></pre>