strDate = Date - 4
strY = Right(strDate, 4)
intY = Right(strDate, 4)
intM = CStr(Mid(strDate, 4, 2))
intD = CStr(Left(strDate, 2))
exc.Workbooks.Open ("S:\Distributors report\SMarchuk\OFF W2\Report OFF\For_Distrib\Name_Archive.xls")
exc.Workbooks("Name_Archive.xls").Sheets("Calednar").Activate
exc.Range("A1").Activate
Do While exc.ActiveCell.Value <> strY
         exc.ActiveCell.Offset(0, 1).Activate
Loop
exc.ActiveCell.Offset(2, 0).Activate
strE = exc.ActiveCell.Offset(0, 2).Value
intM2 = Mid(strE, 4, 2)
Do While intM > intM2
         exc.ActiveCell.Offset(1, 0).Activate
         strE = exc.ActiveCell.Offset(0, 2).Value
         intM2 = Mid(strE, 4, 2)
Loop
intD2 = Left(exc.ActiveCell.Offset(0, 2).Value, 2)
If intD2 >= intD Then
       strE = exc.ActiveCell.Offset(0, 2).Value
       strS = exc.ActiveCell.Offset(0, 1).Value
   Else:
       exc.ActiveCell.Offset(1, 0).Activate
       strE = exc.ActiveCell.Offset(0, 2).Value
       strS = exc.ActiveCell.Offset(0, 1).Value
End If
intY = CStr(Right(strE, 4))
intM = CStr(Mid(strE, 4, 2))
intD = CStr(Left(strE, 2))
strDE = intY & "-" & intM & "-" & intD
strOE = intY & "-" & intM & "-" & intD - 1
intY = CStr(Right(strS, 4))
intM = CStr(Mid(strS, 4, 2))
intD = CStr(Left(strS, 2))
strDS = intY & "-" & intM & "-" & intD
If intD = 1 Then
        strOS = "2013-12-31"
    Else:
        strOS = intY & "-" & intM & "-" & intD - 1
End If
exc.Workbooks("Name_Archive.xls").Close SaveChanges = False