Type mismatch

[Guest]

This is an extract from my macro:

For m = 2 To 20
.Cells(k + 2, m).Value = .Cells(k, m) - .Cells(k + 1, m)

I get a type mismatch, I think that a lot of cells in the worksheet I'm
evaluating
are words.
How do I rectify this? Help is greatly appreciated

 

[Bob Phillips]

Maybe something like

For m = 2 To 20
.Cells(k + 2,m).Value = IIf(IsNumeric(.Cells(k, m) Value), Cells(k,
m) .Value, 0) - _
IIf(IsNumeric(.Cells(k + 1,
m).Value), .Cells(k + 1, m).Value, 0)

--

HTH

RP
(remove nothere from the email address if mailing direct)