Couldn't get SendKeys to work so I opted for the following Sub

Sub eMailActivation()
CurrentRow = 4 'after the header
EndOfFile = Cells(Rows.Count, "A").End(xlUp).Row 'get EndOfFile

While CurrentRow < EndOfFile + 1
Cells(CurrentRow, 6).Select 'Column F
eMailAddress = ActiveCell.Value
If eMailAddress <> Empty Then
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="mailto:" & eMailAddress, _
TextToDisplay:=eMailAddress
End If
CurrentRow = CurrentRow + 1
Wend
End Sub