Type mismatch

Hi All

I am getting Type mismatch at the following line of code. ANy help would be much appreciated.

For i = 1 To 64
If ws.Cells(i, "M") <> 0 Then
ws.Cells(i, "Q").FormulaR1C1 = "=sum(" & ws.Cells(i, "Z") / ws.Cells(i, "M") & ")"
end if
next i

Thanks

I have run the test and did not get any error
By the way

If ws.Cells(i, "M") <> 0 Then

is the same as

If ws.Cells(i, 13) <> 0 Then

But If ws.Cells(i, "M") <> 0 Then is more accurate as the column is hard coded.
I suspect the error might be found in ws

If you do not use Option Explicit at the top , VBA might treat ws as unknown variable and might now now show you an error. If you use Option Explicit, however,the code will error, as the object ,which in this case is worksheet, has not been defined.
You need to use "set" with object variables.