For example, do you want it to be like dat = Date - Weekday(Now(), 1) + ActiveSheet.Range("H2").Value?