Public Sub CreateEmailAddress() Dim intNumRows As Integer Dim x As Integer Dim strEmail As String intNumRows = Sheet1.UsedRange.Rows.Count For x = 2 To intNumRows strEmail = Left$(Sheet1.Cells(x, "C"), 1) & Sheet1.Cells(x, "b") strEmail = strEmail & Right$(Sheet1.Cells(x, "A"), 2) strEmail = strEmail & "@bigcompany.com" strEmail = LCase$(strEmail) Sheet1.Cells(x, "D") = strEmail Next x End Sub

So far I've gotten this far before the results start getting wacky:

For x = 2 To intNumRows strEmail = Left$(Sheet1.Cells(x, "C"), 1) & Sheet1.Cells(x, "b") & Right$(Sheet1.Cells(x, "A"), 2) & "@bigcompany.com" strEmail = LCase$(strEmail) Sheet1.Cells(x, "D") = strEmail Next x

I'm not sure how to enter the LCase$ and the result location in the same line as the one defining the string. If anyone can please point me in the right direction, I'd greatly appreciate it!