Sub Demo() Dim StrDate As String StrDate = Format(Int(Date / 7 + 1) * 7, "YYYY MM DD") MsgBox StrDate End Sub