For each cell in range [Excel macro]

sub for_each_cell_in_range
  
  dim cell as range

  for each cell in range("a1:j10")
     cell.value = cell.address(rowAbsolute := false, columnAbsolute := false)
  next

end sub