P Sütununda Sıfır Bulduğu Hücreyi Silen Makro

[turkanet]

Merhaba,
P sütununda 0 bulduğu hücreyi silen makroya ihtiyacım var. Aşağıdaki kodda "type mismatch" hatası alıyorum.

For i = 1 To Range("P65536").End(xlUp).Row
If Cells(i, 16) = 0 Then Cells(i, 16).ClearContents
Next

Teşekkür ederim.

[Orion1]

Şöyle deneyin.

Kod: [Seç]

For i = Range("P65536").End(xlUp).Row to 1 step -1
If Cells(i, 16) = "0" Then Cells(i, 16).ClearContents
Next