run-time error '13' type mismatch

[RogerBikeSwim]

Hello,

I'm new at VBA and I could use some help debugging my code. I keep getting the error, "run-time error '13' type mismatch." Thanks.

' Converts 0.00 values to "-" characters
'---------------------------------------

For Each c In Worksheets("Central").Range("B10:L1219").Cells

If c.Value = 0 Then ActiveCell.NumberFormat = "0;(0); " - ""

Next

 

[VoG]

Try

For Each c In Worksheets("Central").Range("B10:L1219")

If c.Value = 0 Then c.NumberFormat = "0;(0);" & Chr(34) & " - " & Chr(34)

Next c

 

[RogerBikeSwim]

VoG,

Thank you for your lightning fast response. It works perfectly now.
You sir, are a gentleman and a scholar.