This sub returns error 1004 when it hits the second if statement. Can
you tell me why?
------------
Sub addYears()
Dim year1 As Integer
Dim year2 As Integer
For Each cell In Range("a1", "a3000")
If cell.Value = cell.Offset(1, 0).Value Then
year1 = cell.Offset(0, 4).Value
year2 = cell.Offset(1, 4).Value
cell.Offset(0, 5).Value = year1 + year2
Else
If cell.Value = cell.Offset(-1, 0).Value Then
cell.Offset(0, 5).Value = "See Above"
End If
End If
Next cell
----------
Thanks
-tom
End Sub
Bookmarks