Deleting Selected cells

[test1986]

I have this code:

OASh.Range("A3:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlShiftUp)

Where it delete's the whole row. But now i want it to look down cells A3:A65536 and see if they are empty. If they are we then need to delete this cell along with the cell next to it in column B.

Any Ideas??

Thanks

[Bryan Hessey]

I have this code:

OASh.Range("A3:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlShiftUp)

Where it delete's the whole row. But now i want it to look down cells A3:A65536 and see if they are empty. If they are we then need to delete this cell along with the cell next to it in column B.

Any Ideas??

Thanks

Hi,

try

iLastRow = ActiveSheet.Range("A65536").End(xlUp).Row

if thats the row you're on they're all empty,

hth
---