For Each Loop: Cells in Range
Sub ForEachLoop_CellsInRange Dim rng As Range Set rng = Worksheets("Sheet1").Range("A1:D25") For Each c In rng.Cells 'Do Something... Next End Sub
Sub ForEachLoop_CellsInRange Dim rng As Range Set rng = Worksheets("Sheet1").Range("A1:D25") For Each c In rng.Cells 'Do Something... Next End Sub