Error Message in Loop

[Joe Fish]

Hi,
I'm trying to soup up a loop I have, but I'm getting the following
error message:

Wrong Number of Arguments or Invalid Property Assignment

I've been through Help and The Books, but I can't determine what's
wrong.

Thanks,
Joe

Sub MOO()

Dim rng As Range
Set rng = Range(ActiveCell, ActiveCell.End(xlDown))

j = 0

For Each cell In rng
If cell.Value <> cell.Offset(-1).Value Then
CreatePSFrontLabel cell, j
j = j + 1
End If
Next

End Sub

 

[Jezebel]

Offset() takes two arguments, and you're giving it only one.

 

[Joe Fish]

Actually, you can offset with one argument. The part of the code that
gets highlighted in the error message is the macro (CreatePSFrontLabel
).

 

[JE McGimpsey]

Nope. Both arguments of Offset() are optional.

I suspect you have the wrong number or type of arguments for your
CreatePSFrontLabel procedure.