Convert Existing Values in Range to Email Address Hyperlinks

[reberryjr]

I was originally trying to format UserForm text box values, so that when they populate the worksheet, they're in a hyperlink format, but according to what I'm reading, that can't be done. So, I decided to just try and implement code that updates the range in the worksheet, when the worksheet is activated.

I'm getting an error of "Invalid or Unqualified Reference" error and the ".Hyperlinks" is being highlighted.

Private Sub Worksheet_Activate()

Dim cEmail As Range


For Each cell In Range(cEmail)
    .Hyperlinks.Add anchor:=cEmail, _
    Address:="mailto:" & cEmail.Value, _
    TextToDisplay:=cEmail


End Sub

 

[reberryjr]

YOU ARE AMAZING!!!!! Cheers!!!

 

[Fluff]

Glad we could help & thanks for the feedback

 

[reberryjr]

Using the info you helped me with, I was able to also build a hyperlink to each Client's specific sheet, so the User doesn't have to scroll through the sheets trying to find it.

With ws1.Range("E" & NextRow)    .Hyperlinks.Add _
    anchor:=.Offset(), _
    Address:="", _
    SubAddress:="'" & Me.txt_ClientID.Value & "'!AW1", _
    TextToDisplay:=Me.txt_ClientID.Value
End With

This leaves me with 1 more challenge to figure out, then adding some error handling and some formatting, and I can call this complete. Woo Hoo!