On Tue, 23 Aug 2005 16:36:15 -0400, "Tom Ogilvy" <twogilvy@msn.com> wrote:

>ActiveCell.Value = Mid(Range("A1"),1,Instr(Range("A1"),",")-1)


*Range* is the magic word. I had the ActiveCell.Value part.
Thank you.

Chiuck