problem with "Next Cell"

Can anyone tell me what I'm missing here.
This code is "Supposed" to put a part number into the first blank cell in a range of cells.

If the cell is not blank, go to the next blank cell and put the part Number there.

The problem is that when it gets to the "Next Cell" part,
I get an error "Block if without an end if. But I need to index to the next cell if the selected cell isn't blank.

For Each cell In BlankCells
If cell.Value = "" Then
Call Parts
cell.Value = PartNum
Exit Function
ElseIf cell.Value <> "" Then
Next cell
cell.Value = PartNum
End If
Next Cell

The post above is correct, however leave your exit function as per our previous discussion