If he wants to delete the entire row, that wouldn't do it:

Verfied from the immediate window:
set cell = cells(3,1)
set cell2 = cells(8,1)
? range(cell.address & ":" & cell2.address).rows.address
$A$3:$A$8



perhaps you were looking for

range(cell.address & ":" & cell2.address).EntireRow.Delete

although
Range(cell,cell2).EntireRow.Delete

should be more efficient

--
Regards,
Tom Ogilvy


" wrote:

Hi Ina,

instead of:

Rows("""i + ":" + j""").Select
Selection.Delete Shift:=xlUp

try this

range(cell.address & ":" & cell2.address).rows.delete shift:=xlup

In case I understood correctly what rows you want to delete, otherwise
fix the range.

Ivan