Emptying cells containing a single blank
 

I have a column where all the cells either have something like "# 45" or a
single blank or are empty.

I need to make all cells with a single blank be empty.

Is there a way to do that without using a loop and testing each cell?

Thanks,
Ken Loomis

Emptying cells containing a single blank
 

Columns(2).Replace What:=" ", _
Replacement:="", _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
MatchCase:=False

--
Regards,
Tom Ogilvy

"Ken Loomis" wrote in message
...
I have a column where all the cells either have something like "# 45" or a
single blank or are empty.

I need to make all cells with a single blank be empty.

Is there a way to do that without using a loop and testing each cell?

Thanks,
Ken Loomis