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