'TODO: Extract hyperlink from Text 'tuanchung1997@gmail.com Public Function getLink(r As Range) getLink = r.Hyperlinks(1).Address End Function