påvirke data i sekundær celle vha. function

Følgende er åbenbart ikke muligt :

Function flytdata(vardi As Integer)
flytdata = vardi
range ("d3") = 33
End Function

eller :

Function flytdata(vardi As Integer)
flytdata = vardi
makro1.kurt
End Function

Sub kurt()
Range("d3") = 33
End Sub


Kan man kun påvirke "cellen selv" ved hjælp af en funktion eller er der en mulighed ?