Sub Second Worksheets Activate Dim As Integer Dim As Integer Dim dateO

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
Sub Second()
Worksheets(2).Activate
Dim i As Integer
Dim j As Integer
Dim dateOfCompletion As Date
j = 1
For i = 2 To 298
dateOfCompletion = Cells(i, 2) + Cells(i, 3)
Worksheets(1).Activate
Do While (Cells(j, 1) = Worksheets(2).Cells(i, 1))
j = 1 + j
Loop
Next i
End Sub