Hi Brian,
Thanks for the info - I'll try that.

Regards
John





On Jun 18, 7:56 am, Brian Bennett wrote:
John, try this one. (it's not mine, but one I found)

Sub DeleteRowsThatLookEmptyinColE()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual
Dim Rng As Range, ix As Long
Set Rng = Intersect(Range("E:E"), Sheet1.UsedRange)
For ix = Rng.Count To 1 Step -1
If Trim(Replace(Rng.Item(ix).Text, Chr(160), Chr(32))) = "" Then
Rng.Item(ix).EntireRow.Delete
End If
Next
done:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

*** Sent via Developersdexhttp://www.developersdex.com***