Hi,

Probably some of the cells in the range G22:G38 contains
an value that isn't numeric.

/Nicke

-----Original Message-----
Sub test()
Dim temp As Variant
Dim Range1 As Range
Dim cell As Range

Const big As Variant = 100000000
Set Range1 = ActiveSheet.Range("g22:g38")
For Each cell In Range1.Cells
temp = cell.Value
temp = temp / big <==== error here
cell.Value = temp
Next
MsgBox cell.Value
End Sub
The following code gives an error 13, "type miss
match." Both "temp" and
"big" are variant. Why does the division throw an error
13?

If I change "temp" and "big" to double the line is
acceptable;however the
previous line "temp=cell.Value" throws an error
13, "type miss match". Why?

I am missing something minor regarding the interaction
between "variant" and
the other types. I have not found the "help file" to
inlighten myself.

Could someone please shed some light on this?

Thanks,
James


.