Sub dateDemo() Dim datToday As Date Dim datNextWeek As Date Dim datLastWeek As Date Dim datePaymentDate As Date datToday = Date datNextWeek = datToday + 7 datLastWeek = datToday - 7 datPaymentDate = datToday + 30 End Sub