Current system date over the set date not work when less 10,09,2009 or 20,09,2009 over current system date then msg..... 'date = current system date dim startDate,endDate startDate = CDate("10/09/" & Cstr(Year(TodayDate))) eDate = CDate("20/09/" & Cstr(Year(TodayDate))) if startDate < date or endDate > date then msgbox "10 day over plz update" else msgbox "welcome to start" end if Plz any Solution or Solve problem Thanks