For Each Loops for a range
Sub forEach() Dim c As Range For Each c In Range("A1:E10") c.Value = c.Row * c.Column Next End Sub