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]