Hiya,

I have the following VB rules, always worked until this year.
The result is that I'm now getting only 0 and not anymore the week numbers:

Can someone advice me what could be wrong?

Cheers
------------------------------
Sub remainderUpdateWeeks()

Dim repWeek(2, 155)
Dim firstDate As Date
Dim lastDate As Date
Dim data(4, 30000)
Dim noOfItems
Dim currentSheet
Dim reminderBook

Application.ScreenUpdating = False

currentSheet = ActiveSheet.Name
reminderBook = ActiveWorkbook.Name

Workbooks("ESS makro book.xls").Activate
Sheets("weeks").Activate

For i = 0 To 155
repWeek(0, i) = Range("A2").Offset(i, 0)
repWeek(1, i) = Range("B2").Offset(i, 0)
repWeek(2, i) = Range("C2").Offset(i, 0)
Next

Workbooks(reminderBook).Activate
Sheets(currentSheet).Activate

For i = 1 To 30000
If Range("B4").Offset(i, 0) = "" Then Exit For
data(1, i) = Range("B4").Offset(i, 0) 'Received date
noOfItems = noOfItems + 1
Next

noOfItems = noOfItems - 1

For i = 0 To noOfItems
For t = 0 To 155
If data(1, i) >= repWeek(1, t) And data(1, i) <= repWeek(2, t)
Then
data(0, i) = repWeek(0, t)
Exit For
Else
data(0, i) = 0
End If
Next
Next

For i = 0 To noOfItems
Range("A4").Offset(i, 0) = data(0, i)
Next

Application.ScreenUpdating = True

End Sub