Hi,
Could someone please let me know why the following macro stopped working? IT
did replace my computer!

This macro used to work:

Public Function EasterDate(Yr As Integer) As Date

Dim d As Integer
d = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
EasterDate = DateSerial(Yr, 3, 1) + d + (d 48) + 6 - ((Yr + Yr \ 4 + _
d + (d 48) + 1) Mod 7)

End Function