skipping blank cells in vba for converting hyperlinks to text address

[lindesswhy]

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 = Replace(ActiveCell.Hyperlinks.Item(1).Address, "mailto:", "")
End If
ActiveCell.Offset(1, 0).Activate
Loop

End Sub

I would like to know what line I can add to make it so that it skips blank cells in column G. Not everyone in my worksheet has an email listed.

Thanks!

 

[JoeMo]

Maybe:
Sub AAshowHyperlink()
Dim lR as long
lR = Range("G" & Rows.Count).End(xlUp).Row
Range("G1").Activate

Do Until Activecell.Row > lR
If Not Isempty(Activecell) Then
If ActiveCell.Hyperlinks.Count <> 0 Then
ActiveCell.Value = Replace(ActiveCell.Hyperlinks.Item(1).Address, "mailto:", "")
End If
End If
ActiveCell.Offset(1, 0).Activate
Loop

End Sub

 

[lindesswhy]

thank you so much! im still pretty new to excel VBA so i don't understand everything in the new line of formula but it is working so far, i really appreciate your help! you have saved me a ton of time!

EXCEL RULES!