Filename as PRIOR month

Hi,

I'm trying to get a bit of code to name a file as the prior month. I searching this forum and many others, as well as excel help, and even asked our traning department in work, all to no avail.

Does anyone know how I can get this to work?

This is what I have:

Sub save()

Dim myPath As String, lastday As String
    myPath = ActiveWorkbook.Path
'lastday need to be the end of the prior month in yyyymmdd format, so far only saves as current date in yyyymmdd format (need to work for year end as well)
    lastday = Format(Now(), "yyyy") & Format(Now(), "mm") & Format(Now(), "dd")
'which could be lastday = Format(Now(), "yyyymmdd") I know, but I was working on trying to get it to work.
      
    ActiveWorkbook.SaveAs Filename:= _
    myPath & "\Final_RP_Barra_Preprocessor_TEST " & lastday & ".xls"

End Sub

Cheers

Try

lastday  = format(dateserial(year(date),month(date),0),"yyyymmdd")

Well DateSerial returns a date based on Year, Month and Day values.

The trick is a day of Zero will cause the function to return the day before the 1st of the month, which is the last day of the previous month.