Off the top

For Each cell in Selection
cell.Value = Trim(cell.Value)
cell.Numberformat = "@"
Next cell

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"JG Scott" wrote in message
oups.com...
I have a table in which each cell contains either a number or is blank.
On each row, I would like to delete all the blank cells to the left of
the first number and shift cells left.

Thanks.