Hi,

Am Wed, 30 Jan 2013 18:12:03 +0000 schrieb ukat101052:

I have a column of data (50 cells), with some cells blank. In certain
of the cells, there is a dash that separates the first word in the cell,
and the remaining letters/text (actually it is a blank/-/blank). I
would like VBA that would delete everything after the first word in the
cell (and this word can vary in length). Any ideas?

home tab = Find & Select = Replace
Find what: blank-blank*
Replace with: Nothing


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2