List Range

[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

 

[JulieD]

Hi

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

Cheers
Julie

 

[Tom Ogilvy]

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

 

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