Convert Email address in cell into a link

Hi All

This may be really simple but i cant work it out. I have a simlple macro to add a new customer to a list using a form. One of the columns of the datra beig added is an email address. When entering the data the email address just appears as text, but i want it to be the email address link you could click on and it opens up an outlook email. Just clicking into the cell and tabbing out changes this into the format i want, but wondering how to i get the macro to do this?

Thanks

Thanks Hawkeye, not sure i understand. Sorry would have made i clearer if i show some of my code. So below is the part of the code that is inserting into my data sheet the data entered on the User Form, the bottom line is the column taking the Email Address the user has entered into the Email Address Text Box on the User form. So is your suggestion something i can put into my code?

Sheets("New Leads").Select
Range("A8").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.Name = "NextInput"
ActiveCell.Value = New_Lead_Details_Form.BusNameTextBox.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = New_Lead_Details_Form.BusTypeTextBox.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = New_Lead_Details_Form.AreaTextBox.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = New_Lead_Details_Form.AreaTypeComboBox.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = New_Lead_Details_Form.EmailAddTextBox.Value

Thanks