Hi J.W

How about you try something like this. Adds a new sheet and places
yesterdays date in mm/dd format.
Take care

Marcus

Sub AddPriorDate()

Dim Ws As Worksheet
Dim MyDate As String

MyDate = Format(Now() - 1, "mm.dd")
Sheets.Add
ActiveSheet.Name = MyDate

End Sub