Dim AnyString, MyStr
AnyString = "08/16/2005 18:38:32.300" ' Define string.
MyStr = Left(AnyString, 11)

HTH

Andi

"Jonathan Dunne" wrote in message
...
Hi all

I have a bunch of cells which contain both date and time e.g.

08/16/2005 18:38:32.300
08/16/2005 18:38:32.315
08/16/2005 18:38:34.308

I am wondering what is the correct procedure to remove the first 11
characters from each cell? I can't do a simple find and replace as the
date
will change.

Thanks in advance
Jonathan