List Range

I

ianripping

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
 
J

JulieD

Hi

personally i would just sort the list - this will put all your gaps at the
bottom

Cheers
Julie
 
T

Tom Ogilvy

Sub ManageList()
Selection.Copy Destination:=Selection.Offset(0, 1)
Selection.Offset(0, 1).SpecialCells(xlBlanks).Delete Shift:=xlShiftUp
End Sub
 
M

Mike Q.

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.
 
Top