Emptying cells containing a single blank

[Ken Loomis]

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

 

[Tom Ogilvy]

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