Question from VB novice...

Can someone suggest how to make the follwoing macro more efficient ?

It will process 40K plus rows and is very slow.

I've tried adjusting the chunk processing size from, 100 to 5000. Smaller
chunk appears to be faster.

All suggestions welcome...

thanks in advance...


Dim Rng As Range
Dim RawDataRowNdx As Long
Dim LastRowOfRawData As Long
' Turn Screen Updateing and sheet Calculation OFF to go faster
'
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'
' Set sheet to Raw Data Area sheet
'
Sheets("Raw Data Area").Select
'
' Find Last Row of Data
LastRowOfRawData = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row


'
' Delete All Blank Rows in 100 row chunks
'
For RawDataRowNdx = 100 To LastRowOfRawData Step 100
Range("N1:N" & RawDataRowNdx).SpecialCells(xlBlanks).EntireRow.De lete
Application.StatusBar = RawDataRowNdx & "K Records Processed... Still
Working!!!"
Next RawDataRowNdx