I have the following code below

 .body = "Attached please find summary sales figures as at " & Format(Month(Date - 30) & " " & Year(Date), "mmmm yyyy") & " vs the Prior Year" & vbNewLine & vbNewLine

It returns the following :

Attached please find summary sales as at January 2018 vs the Prior Year



I would like it to show the month and year relating to the previous month i.e 30 days less than the current month for eg if the current month is January 2018 it must return


Attached please find summary sales as at December 2017 vs the Prior Year



It would be appreciated if someone could kindly amend my code