I have a function that sums 3 values:

********
Public Function sum(UserRange) As Double

sum = 0

For Each cell In UserRange
sum = sum + cell.Value
Next cell

Range("H5").Value = 7 : THIS DOESNT WORK ???


mysum = sum

End Function
******
The call for it is in a cell (G4) , =sum(G1:G3)
I am trying to set the value of another cell in this function using
Range("H5").Value = 7,but it does nothing.