....and it really works now. Thanks again.
Would you be so kind as to give me some explanation or a
reference/link where I can get it.



-----Original Message-----
Function proba(cella As Range, rng As Range) As Long
Dim itm as Range, rng1 As Range

Set rng1 = rng.Columns(1).Cells

For Each itm In rng1
if isnumeric(cella.Value) then
proba = itm.Value + cella.Value
End if
Next item
End Function


--
Regards,
Tom Ogilvy

"zsola" wrote in message
...
Hi again,

I tried writing a function using a "rng" and "cella"
Range
variable in it. My plan is to walking through cells in
this range, or only in one single column of rng and
calculate with cell's value. The code sample should be
something like this:

Function proba(ByVal cella, rng As Range) As Integer
Dim item, rng1 As Range

Set rng1 = rng.Columns(1)

For Each item In rng1
proba = item.Value + cella.Value
Next item
End Function


And this code doesn't work. I think my solution in
reference to range "rng1" or cell is wrong, but I don't
have idea.


.