Then you might as well tidy it up to eliminate the unnecessary selection :-)

Range("A1:A4").TextToColumns Destination:=Range("B1"), _
DataType:=xlDelimited, Comma:=True

Alan Beban

Otto Moehrbach wrote:
Thanks Alan. That goes in my HowTo file. Otto