Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Loop through ranges

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