Sub reference as Cell

Hello,

I have a sub such as:
[VBA]

Sub is_stuff_happening(rng As range)
For Each C In rng
Call set_word(C)
Next C
End Sub

Sub set_word(C As ***)
[/VBA]

And I don't know what should be put in the place of the ***. Range doesnt work and there doesnt seem to be a cell reference. Does anyone know?
Thanks in advance!!

It should be Range.

Quote:

---

Originally Posted by xld

It should be Range.

---

When I do that though, it highlights the C in set_word and gives me the error:
ByRef argument type mismatch

What to do?

Use Option Explicit

[VBA]
Sub is_stuff_happening(rng As range)
Dim C as range
For Each C In rng
Call set_word(C)
Next C
End Sub

Sub set_word(C As Range)
[/VBA]

Might have to add .Cells to the For Each loop


[vba]

Sub is_stuff_happening(rng As range)
Dim C As range
For Each C In rng.Cells
Call set_word(C)
Next C
End Sub

Sub set_word(C As Range)

[/vba]

Paul

Thanks for all the repsonses!

So i have this
[vba]

Sub is_stuff_happening(rng As range)
Dim C As range
For Each C In rng.Cells
If IsNumeric(C.Value) And IsNumeric(C.Offset(0, -1).Value) Then
Call set_word(C)
End If
Next C
End Sub

Sub set_word(C As Range)

[/vba]
This now gives me another error, hilighting the If statement:

Run-time error '1004':
Application-defined or object-defined error

:dunno

You will get an error if you try and access any cells in column A because of the Offset(0, -1)

Nice, i had the wrong cell input
Thank you so much everyone!!!

Quote:

---

Originally Posted by xld

You will get an error if you try and access any cells in column A because of the Offset(0, -1)

---