как передать аргумент?

[Sergey112233]

Уважаемые форумчане.
Программа находит в столбце А:А несколько последовательно идущих одинаковых записей код и в столбце С:С, соответственно, записывает текущую дату.

Надо вот эту часть кода:

m = 0
Do
If poz <> poz.Offset(m, 0) Then Exit Do
poz.Offset(m, 2) = Date + k
m = m - 1

Loop
poz.Offset(0, 2).Select

сделать отдельной программой или функцией, чтобы вызывать ее необходимое количество раз.
Подскажите пожалуйста, как передать в функцию в качестве аргумента poz.Offset(m, 0)

Например, вот так не получается

Public Function prov(poz1)
m = 0
Do
If poz1 <> poz1.Offset(m, 0) Then Exit Do
poz1.Offset(m, 2) = Date + k
m = m - 1

Loop
End Function

[doober]

А так

Public Function prov(poz1 As Range)
m = 0
Do
If poz1 <> poz1.Offset(m, 0) Then Exit Do
poz1.Offset(m, 2) = Date + k
m = m - 1
Loop
End Function

[Sergey112233]

А так ошибка 424

[doober]

         prov poz

Скобки убрать,это классика

[Sergey112233]

И так

Public Function Prov(ByVal Poz1 As Range) As Range

m = 0
Do
If Poz1 <> Poz1.Offset(m, 0) Then Exit Do
Poz1.Offset(m, 2) = Date + k
m = m - 1
Loop
End Function

В программе выдает ошибку 424 на вызове prov(poz)
В чем причина, не пойму?

[Sergey112233]

doober,
спасибо
Уважаемая классика!