I need assistance with the following code.

I am trying to run through a table of values. For this particula
table, there are empty rows which i would like to delete. There can b
one or more empty rows in the table.

I have written the code but it doesn't work properly because the loo
never ends. Can somebody help me on this? Thanks a lot!

With Worksheets("SGTemp")
intRow = 2
intLastRow = .Cells(Rows.Count, 1).End(xlUp).Row

For intRow = 2 To intLastRow
If IsEmpty(.Cells(intRow, 1)) Then
Range("A" + Format(intRow) + ":B"
Format(intRow)).Select
Selection.Delete Shift:=xlUp
intRow = intRow - 1
End If
Next intRow
End Wit

--
Message posted from http://www.ExcelForum.com