Need help from expert!!

I really need help with this macro:

Sub MailMergeTest1()
'
' MailMergeTest1 Macro
'
'



ActiveDocument.MailMerge.OpenDataSource Name:= _
"\\158.555.555.33\Savannah\Schedules\2 DEMO Complete\7.13..15_FMAT_Schedule.xlsm" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=\\158.555.555.33\Savannah\Schedules\2 DEMO Complete\7.13..15_FMAT_Schedule.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:E" _
, SQLStatement:="SELECT * FROM `Schedule$`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
End Sub

In the blue text above I need to make the date automatically pull up yesterdays date. So if today is May 2nd, then I need it to pull up 5.1..15_FMAT_Schedule

Thanks and let me know if you need any more information.

Sub MailMergeTest1()
 
 ' MailMergeTest1 Macro

Dim Yesterday As String ' D.M..YY

Yesterday = Month(Date - 1)
Yesterday = Yesterday & "."
Yesterday = Yesterday & Day((Date - 1)) & ".."
Yesterday = Yesterday & Right(Year(Date - 1), 2)

 ActiveDocument.MailMerge.OpenDataSource Name:= _
"\\158.555.555.33\Savannah\Schedules\2 DEMO Complete\" & Yesterday & "_FMAT_Schedule.xlsm" _
 , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
 AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
 WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
 Format:=wdOpenFormatAuto, Connection:= _
 "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=\\158.555.555.33\Savannah\Schedules\2 DEMO Complete\" & Yesterday & "_FMAT_Schedule.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:E" _
 , SQLStatement:="SELECT * FROM `Schedule$`", SQLStatement1:="", SubType:= _
 wdMergeSubTypeAccess
 
 With ActiveDocument.MailMerge
 .Destination = wdSendToNewDocument
 .SuppressBlankLines = True
 With .DataSource
 .FirstRecord = wdDefaultFirstRecord
 .LastRecord = wdDefaultLastRecord
 End With
 .Execute Pause:=False
 End With
 
 
 
 End Sub

Thank you soooo much!