以下の方法で解決しました。 Dim c As Range For Each c In objExcelApp.Worksheets("Sheet1").Range("B2:D3") MsgBox c.Value Next