dim iValueCMGM as Double

With worksheets("Sheet1")
if isnumeric(.Range("C106").Value) and _
isnumeric(.Range("C92").Value) then
if Range("C92").Value < 0 then
iValueCMGM = .Range("C106").Value / .Range("C92").Value
end if
end if
End With

--
Regards,
Tom Ogilvy


"David" wrote in message
...
I have a macro that takes values from spreadsheets sent to our office and
posts the values to a consolidated spreadsheet.
I need a value that is the result of a sum function (would look like this
if
in a cell cum(c106/c92). I have to perform the function and then assign it
to
a variable named iValueCMGM. The value of this variable is then pasted
into
the consolidated workbook.
I tried this but it didn't work:
iValueCMGM = .Range("C106" / "C92")

Can anyone help?
Thanks!