Sub columnschange()
lr = Cells(Rows.Count, "a").End(xlUp).Row
For Each c In Range("a2:a" & lr)
c.Offset(, 1) = c & "
c.Offset(, 2) = Left(c, InStr(c, ".") - 1)
c.Offset(, 3) = Right(c, InStr(c, ".") + 2)
Next
End Sub

--
Don Guillett
SalesAid Software

"John H" wrote in message
ups.com...
Hi, I am a newbie to excel and would like advice on how to acheive the
following:
We have a spreadsheet complete with a user name ie. Joe.Bloggs, this
name is copied across 4 cols
Joe.Bloggs Joe.Bloggs Joe.Bloggs Joe.Bloggs . I would like in essence 3
macro's (or 1 big one), which will look at col 2 and add a string of
text to the end ie. , Col 3 will strip of the
surname name ie. Joe and col 4 will strip of the surname "Bloggs". As
there are many entries for each row I would like all macros to
continually check the rows until an empty cell is found. I hope this
makes sense and thank you for your time. John.