Text Mismatch

[Tim]

I get run time error 13 from this line in the code
Type mismatc

Cells(cLastRow + 1, "B").Value = Cells(cLastRow, "B").Value + 1

 

[Frank Kabel]

Hi Tim
you probably have some text in your cell (cLastRow,"B"). This would
cause the error 13

HTH
Frank