VBAで複数のセルをループしようとしています

Question

私はオンラインで検索しましたが、いくつかの解決策が見つかりましたが、それらのどれも私には意味がありません。これは特に動作しない理由を私は思ったんだけど：

Dim rng As Range: Set rng = Range("A5:A10") 
    For Each cell In rng 
     Dim contents As String: contents = ThisWorkbook.Sheets("ROI's").Range("cell").Value 
     MsgBox (contents) 
    Next cell 

（ちなみにこれは働くより大きなマクロ内にある）

をそれはエラーが3行目に

Answer 1

であることを言い続けますScott Craners答えに加えて、contentsの括弧をMsgBox (contents)に入れると、それを変数に入れないので、囲むべきではありません。

Answer 2

Sub try2() 


Dim rng As Range 
Dim cell As Range 
Dim contents As String 
Dim ws As Worksheet 

Set ws = Worksheets("Sheet1") 
Set rng = Range("A1:A10") 

For Each cell In rng 
    contents = ws.Range(cell.Address(0, 0)).Value 
    MsgBox (contents) 
    Next cell 

End Sub 

私は上記の私の上のすべての罰金の人がこの仕事をすることについて述べてきたものを合成だけ抜粋です... VBAに関する様々な問題wtih練習してきました。私の2セント、括弧またはコンテンツ変数の周りにない、結果は同じです。