Object required error

Mornin',

Here's the code:

Sub DELETE_ZERO_QTY_ROWS()

Dim currentCell
Dim nextCell
    
currentCell = ActiveCell.Address
            
Do While Not IsEmpty(currentCell)
        
    nextCell = currentCell.Offset(1, 0)
                
    If currentCell.Offset(0, 3).Value = 0 Then
            
        currentCell.EntireRow.Delete

    End If
   
    currentCell = nextCell
   
Loop

End Sub

I get an "object required" error on the nextCell = currentCell.Offset(1, 0) line. WHat I'm trying to achieve is rather simple.

Columns A, B and C

A = title
B = description
C = quantity

Delete all 0 quantity rows.

Seems like the code should work.....a little stumped.

Thanks again!

- Lou