i am trying to create a function that will change the calculation of each
cell in a range. i want to be able to call this function using different
ranges at different times.

Public Function DivideRange(TheRange As Range, c As Range)

Set TheRange = Range("x:y")
For Each c In TheRange
c.Value = c / 1000
Next c

End Function

I am not sure how to get this to work. I have posted what I have created
thus far. Any suggestions would be helpful.

Thanks