this is the code i have so far for converting my "Email" hyperlinks all in column G into the actual email address text.
Sub AAshowHyperlink()
Range("G1").Activate
Do Until IsEmpty(ActiveCell)
If ActiveCell.Hyperlinks.Count <> 0 Then
ActiveCell.Value =...