Sub ForEach01() Dim MyRange As Range Range("C18").Value = 0 For Each MyRange In Range("C3:C17") 'C3~17へ繰り返す Range("C18").Value = Range("C18").Value + MyRange 'セルC18に合計を表示 Next MyRange End Sub