This may not apply for Fabalicious, but someone might find Areas useful.
Dim i As Integer
'The following statement just names a multi-area range.
'It's the same as selecting A1:A10 and then CTRL+selecting B1:B10, C1:C10, D110
'and then Insert, Name, Define myRange
ActiveWorkbook.Names.Add Name:="myRange", RefersToR1C1:= _
'This loops through each area and then each cell
For Each area In ActiveWorkbook.Names("myRange").RefersToRange.Area s
For Each cell In area
cell.Value = i
i = i + 1