Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim temp As Long
Dim r As Long
Dim a As String
Dim result() As Long
ReDim result(10)
Dim range() As Long
ReDim range(10)
range(0) = 0
For r = 1 To 10 Step 1
range(r) = range(r - 1) + 2000:
Next r
For r = 9 To 44 Step 1
a = CStr(UCase(Cells(r, 2).Value))
temp = Val(a)
If temp > = range(0) And temp < range(1) Then result(0) = result(0) + 1
If temp > = range(1) And temp < range(2) Then result(1) = result(1) + 1
If temp > = range(2) And temp < range(3) Then result(2) = result(2) + 1
If temp > = range(3) And temp < range(4) Then result(3) = result(3) + 1
If temp > = range(4) And temp < range(5) Then result(4) = result(4) + 1
If temp > = range(5) And temp < range(6) Then result(5) = result(5) + 1
If temp > = range(6) And temp < range(7) Then result(6) = result(6) + 1
If temp > = range(7) And temp < range(8) Then result(7) = result(7) + 1
If temp > = range(8) And temp < range(9) Then result(8) = result(8) + 1
If temp > = range(9) And temp < range(10) Then result(9) = result(9) + 1