I am receiving an object error when I run this procedure. I'm not sure why.
It does the calculation. I have posted the procedure that calls the function.

Thanks

Private Sub DivideCells()

Dim value As Double

value = 1000

DivideRange(Range("C15:V15"), value) = Range("C15:V15").value

End Sub


Function DivideRange(myRange As Range, myValue)

Dim myCell As Range

For Each myCell In myRange
myCell.value = myCell / myValue
Next myCell

End Function