This macro should do it

Sub makeemailaddress()
For Each c In Range("a3:a5")
With c
.replace "'", ""
.Value = LCase(c.Value)
x = InStr(c, " ")
.Value = Left(c, x - 1) & "." _
& Right(c, Len(c) - x) & "
End With
Next
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Seanie" wrote in message
...
What formula could I use to convert names to e-mail addresses?

Name would be input in the format: First Last

E-mail address format would be:

An few examples:

Joe Public would be
Joe O'Public would be
Joe McPublic would be
etc etc