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?