After coping and pasteing a Word file I use Text to
Columns to parse the data. The phone numbers end up in
different columns and I want to cut and copy them into the
same column. I have tried a couple of different things but
can't get them to work. Any help will be greatly
appreciated.




Cells.Find(What:="???-???-????", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.Cut
Range("A1").Select
ActiveSheet.Paste

I use this site all the time, Thank You, Thank You, Thank
You.

ray denneny