Repeat Loop with Different Parameters

[FalconFlyer]

I need to run a loop for different "sets" of rows. What I would like to do is run the same loop for Rows 10-12, then 15-20, etc. Instead of rewriting the same loop, is there an easier way?

 

[shg]

  Dim r             As Range
  Dim iRow          As Long
  Dim iArea         As Long

  Set r = Range("10:12, 15:20, etc")
  For iArea = 1 To r.Areas.Count
    With r.Areas(iArea)
      For iRow = 1 To .Rows.Count
        ' ...
      Next iRow
    End With
  Next iArea