For each in range [Excel macro]

option explicit

public sub for_each_in_range()

  dim c as excel.range
  
  for each c in range("B3:D6") ' from left to right, then next row
      msgBox(c.address)        ' thus: $B$3, $C$3, $D$3, $B$4, $C$4, $D$4, $B$5, $C$5, $D$5, $B$6, $C$6, $D$6
      c.value = c.address
  next

end sub