Save As Worksheet with date

[M_S]

Hello,

I'm trying to 'save as' a worksheet to a specific folder with date in the name. So, my filename is going to say "081921_Bill_Review", what I'm trying to do is if I run this Macro the same, I want excel to create another filer with maybe an additional letter with the date (for e.g: 081921A_Bill_Review), instead of overwriting the previous file.

wb.SaveAs "N:\Team\XYZ\00-Folders\Log" & "/" & Format(Date, "mmddyy") & "_" & "Bill_Review" & ".xlsx"
wb.Close True

Thank you!

 

[DanteAmor]

With the following, if "081921_Bill_Review" already exists, create
"081921A_Bill Review", if "081921A_Bill_Review" already exists, then create
"081921B_Bill_Review" and so on.

  Dim sPath As String, sDate As String, sName As String, sd2 As String
  Dim n As Long
  
  sPath = "N:\Team\XYZ\00-Folders\Log\"
  sDate = Format(Date, "mmddyy")
  sd2 = sDate
  sName = "_Bill_Review.xlsx"
  n = 64
  Do While True
    If Dir(sPath & sd2 & sName) = "" Then
      Exit Do
    End If
    n = n + 1
    sd2 = sDate & Chr(n)
  Loop
  wb.SaveAs sPath & sd2 & sName
  wb.Close False