object error

[Monique]

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

[MIKE215]

Hi Monique -

You've probably tried this. Change DivideRange to a PRIVATE SUB accepting
arguements then call DivideRange in your code. It gets you the same result
without the error.

Mike
Sub DivideCells()
Dim value As Double

value = 1000
Call DivideRange(Range("c15:g15"), value)
End Sub


Private Sub DivideRange(myRange As Range, myValue)
Dim myCell As Range

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

End Sub

"Monique" wrote:

> 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
>