object error
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 |
object error
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 |
All times are GMT +1. The time now is 02:15 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com