Question

How can I create a macro that will add a day in one cell and subtract a day in another cell at the same time? Here is what I have so far.

Sub ChangeDates()

Dim cell As Range

For Each cell In Range("B:B")
    cell.Value = cell.Value + 1
Next cell

For Each cell In Range("C:C")

    cell.Value = cell.Value - 1

End Sub

Answer 1

Offset to the rescue!!

Sub ChangeDates()  
Dim cell As Range  
   For Each cell In Range("B:B")     
      cell.Value = cell.Value + 1
      cell.offset(0,1).value = cell.offset(0,1).value - 1
   Next cell  
End Sub 

Another thing you may consider is either looking at usedrange to not have to iterate through all of column B or put in a check to make sure the cells aren’t blank… Just faster, better coding and stops you from having bad values where the cells were originally blank…

Sub ChangeDates()
Dim cell As Range
   For Each cell In Intersect(Range("B:B"), ActiveSheet.UsedRange)
      cell.Value = cell.Value + 1
      cell.Offset(0, 1).Value = cell.Offset(0, 1).Value - 1
   Next cell
End Sub