Columns(6).Select
' now your code

or

ActiveCell.EntireColumn.Select
' now your code

--
Regards,
Tom Ogilvy

"John" wrote in message
...
I have a list that has first names and middle intiials in the same column.
I
want to create a macro to cut the initial and the period and paste it into
the next column over.

I have recorded a macro that does it, once. But I don't understand how to
get it to keep working through the whole list.

Thanks.
--
John