Insert blank row for each full row

[austenr]

If I understand your question, The screen updating feature works no matter how many rows you have or what you select. It is independent of any code.

[samohtwerdna]

YEAH I think?

You know when you select the entire sheet by clicking on the top left hand corner of the sheet and then say format the row height - the change is very, very fast - no matter how large the sheet, that's what I am talking about.

is there a way to format every other row just as fast?

I am sure I have to use VBA - but perhaps I dont have to loop through each row?

[austenr]

There are several ways to do just about everything, but in this case Norie's solution is the best and fastest way to go, IMHO. However, others may have something else to say.

[Zack Barresse]

Try using SpecialCells, xlCellTypeBlanks possibly. Maybe something like this ...

[vba]Option Explicit

Sub DeleteBlankRowsPlz()
Dim Rng As Range
Set Rng = Selection 'set as desired
On Error Resume Next
Rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub[/vba]