How to get yesterdays date to fill variable

[Jake975]

Sub test()
Dim Loc As String
Dim out As String
'Dim path As String

'path = Sheets("Home").Range("H1")+ "\Temp.csv"
Loc = Sheets("Home").Range("H1") + "\Temp.csv"
out = "C:\Audit Reports\Compiled" + "\Final.pdf"

Call Shell("cmd /k C:\Users\example\Desktop\testa.bat " & " " & """" & Loc & """" & " " & """" & out, vbNormalNoFocus)

End Sub

How can i get yesterdays date to autofill in the "\(Final).pdf" location?
This is what I mean: C:\Audit Reports\Compiled\Final.pdf= C:\Audit Reports\Compiled\06-02-2020.pdf
Thank you for the help and support.

 

[MARK858]

Try...

out = "C:\Audit Reports\Compiled\" & Format(Date - 1, "mm-dd-yyyy") & ".pdf"

 

[Jake975]

Thank you i didnt think it would be that easy, it worked like a charm. your the best

 

[MARK858]

You're welcome.