A Formula which writes to other cells

[RIcky Nu]

Is there a way to make a funciton write a value to another
cell, other that where the formula is placed? for example
if I writ ehte following function, and place it into cell
B1, with cell A1 as the parameter, I want the result to be
that when A1 = 1, a 1 is placed in C1. Thanks!


function write_result(input_value As Variant)
If input_value = 1 Then
Range("C1").Value = input_value
End If
End funciton