Change the name of the Day() procedure in Module1. It conflicts with the Day function.