Sub DeleteCell()
Range("A:A").SpecialCells(xlCellTypeBlanks).Delete
End Sub

Or if you have more than one column of names
just highlight the range and:

Sub DeletCellsInRange()
Dim MyCells As Range
For Each MyCells In Selection.Areas
With MyCells
.SpecialCells(xlCellTypeBlanks).Delete
End With
Next MyCells
End Sub

Mike Q.

-----Original Message-----
I have a list of names. The names have blanks in between
them.

I want to put these names into a list with no gaps.

Any Idea's?

The list needs to be one cell after the other.


---
Message posted from http://www.ExcelForum.com/

.