tilføje aktiv link til celler med mailadresse
Jeg skal have lavet en makro der indsætter et aktivt link i en celle, hvis der er indhold i cellen (jeg tager som en selvfølge, at det er en mailadresse)Når jeg bruger denne kode virker det fint:
For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Formula
Next xCell
Men når jeg føjer en if sætning ind fungerer det ikke.
For Each xCell In Selection
If Not IsEmpty(ActiveCell) Then
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Formula
End If
Next xCell
Hvad gør jeg forkert?