Sub TestAreas() Dim rng As Range For Each rng In Range("A1:B5,C6:D10,E11:F15").Areas MsgBox rng.Address Next rng End Sub