Add email Hyperlink via VBA

[jyokom]

I am trying to add an email address to a sheet via VBA and get an Object Required error. What's missing from the code? TB_Email1 is a text box in a userform

Hyperlinks.Add Anchor:=Sheets("Crew").Cells(NextRow, 10), Address:=_
"Mailto:" + TB_Email1.Value, TextToDisplay:=TB_Email1.Value

 

[bensonsearch]

Hi,
maybe try & instead of +

Hyperlinks.Add Anchor:=Sheets("Crew").Cells(NextRow, 10), Address:=_
"Mailto:" & TB_Email1.Value, TextToDisplay:=TB_Email1.Value

otherwise you could just do something like

sheets("Crew").range("B2").value = "=mailto:" & TB_Email1.value