C列の表示文字が「0」の時「M列のセル内容をクリア」というマクロが動きません

シートの最終行を取得し、5行目から最終行まで『C列の表示文字が「0」の時「M列のセル内容をクリア」する』というマクロを作成しているのですが、そう複雑ではないマクロのはずなのに動きません。
C列には別シートの特定セルの計算内容を=で持ってきており、表示としては「0」になるセルがあります。
例）
=シート2!A3　←このような式が入っており、別シートの計算結果を引っ張ってきている
原因がお解りになる方いらっしゃいましたら、ぜひご教授頂ければありがたいです。

Sub テスト()

Dim i As Long
With ActiveSheet

For i = 5 To Cells(.Rows.Count, "O").End(xlUp).Row
If .Cells(i, 3).Value = 0 Then
.Cells(i, 13).Clear
End If
Next i

End With
End Sub

No.3 ベストアンサー 回答者： GooUserラック 回答日時： 2017/11/10 23:07

No.1 の追補

どこを直したか？判りにくかったですよね！（赤字の所が修正箇所です）
※「O」⇒「C」最終行を検出する列が違っていました。
※「Value = 0」⇒「Text = "0"」表示文字が…なので忠実にコード化しました。

この回答へのお礼

長らくログインできず、ベストアンサーを選べなくなっていました。。。申し訳ありません！
詳しい解説までありがとうございます！ValueではなくText、目からウロコでした。。。

お礼日時：2017/12/07 22:47

No.2 回答者： めぐみん_ 回答日時： 2017/11/10 05:40

既に回答は出てますが。

別方法として、参照元の結果で判断するというのもありかなと。

Sub テスト()

Dim i As Long
With ActiveSheet

For i = 5 To Cells(.Rows.Count, "O").End(xlUp).Row
If Evaluate(.Cells(i, 3).Formula) = 0 Then
.Cells(i, 13).Clear
End If
Next i

End With
End Sub

この回答へのお礼

長らくログインできずお礼ができておりませんでした、
計算結果がゼロ、という指定方法もあるのですね。
別解をありがとうございました！勉強になりました！

お礼日時：2017/12/07 22:49

No.1 回答者： GooUserラック 回答日時： 2017/11/09 23:16

こんな感じでしょうか？

-----------------------------------------------------------------------------------------
Sub テスト()

Dim i As Long
With ActiveSheet
For i = 5 To Cells(.Rows.Count, "C").End(xlUp).Row
If .Cells(i, 3).Text = "0" Then
.Cells(i, 13).Clear
End If
Next i
End With

End Sub
-----------------------------------------------------------------------------------------