Language Basics VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Language Basics
  4. 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