プロパティの使用が正しくありません。コンパイルエラー

Question

バットでプロパティのコンパイルエラーが無効になっています。何か案は？このコードは、変更管理情報を取得するプロジェクトの一部です。

Sub New_Process(target As Range) 

    Dim vNewRng As Range, vOldRng As Range, r As Range 
    Set vNewRng = target 

    Application.Undo 

    Set vOldRng = Range(vNewRng.Address()) 

    For Each r In vOldRng 
     r.Value 
    Next r 

End Sub 

Answer 1

r.Valueは意味があります。

など。 r.Value = r.Value またはr.Value = "vityata"