Deleting Null Cells

[GOL]

I would like a macro that deletes All Null Cells in a spreadsheet.

For Example

aaa Null 123
bbb 123 Null 123

Would look like

aaa 123
bbb 123 123

I would like the Null Cells Delete and everything to come to the left.

 

[Tom Hutchins]

Try this:

Sub DeleteBlankCells()
ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub

Hope this helps,

Hutch

 

[GOL]

Thanks

Try this:

Sub DeleteBlankCells()
ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub

Hope this helps,

Hutch