How to Hyperlink an Email Address and make it "Active" or "Live" or "Clickable"

Question

I honestly can't believe there is not a simple button for this. Or maybe there is?

I have a list of 400 people's names in column A and their email address in column B. I would like to make column B clickable, without having to go in and hit space or enter on each one. How do I accomplish this?

Answer 1

Hi @xoTiffanie ,
The requirement is not very clearly, do you want the email address hyperlink automatically in cell?
If yes, you can run this code, the sample is email in Column B and add hyperlink in Column B:

Sub Drawing_Hyperlink()  
  
  Dim r As Integer, hang As Integer  
    
  r = ActiveSheet.UsedRange.Rows.Count  
    
  For hang = 2 To r  
    
    Cells(hang, "B").Select  
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _  
        "mailto:" & Cells(hang, "B").Value  
    Application.ScreenUpdating = False  
     
    Next hang  
          
     
End Sub  

If my understanding is incorrect, please provide more information and I'm glad to helpyou.

---

If the response is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.