アプリケーション定義またはオブジェクト定義のエラー - 回答が見つかりません

Question

私はすべてを検索しましたが、これを把握することはできません。私が望むのは、プログラムが文字列の6番目の文字が "C"に等しいかどうかをチェックし、そうであればセルのフォントを赤くすることです。私はいくつかの異なる修正を試みましたが（これは私の最初のコードではありませんでした）、なぜこのエラーが発生し続けるのか理解できません。誰が何が起こっているか教えてくれますか？

Dim Rows As Integer 
Dim Content As String 

Worksheets("Data").Activate 
Rows = Worksheets("Data").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count 

For x = 1 To Rows 
Content = Mid(Cells(x, "A"), 6, 1) 

If Content = "C" Then 
    With Worksheets("Data") 
     .Range(Cells(x, "A")).Font.Color = vbRed <---- ERROR 
    End With 
End If 
Next x 

Answer 1

単語Rangeを削除するだけで問題なく動作します。また、参考のためだけに.Range("A" & x).Font.Color = vbRedを使用することもできます。