Export to/Save As a copy of template and add date to file name

[OBP]

I would add the following code
Dim dated as string
dated = format(date, "mm") & format(date, "dd") & format(date, "yyyy")

After the line of code
Set dbs = Nothing
add in
xlw.SaveAs "C:\UGH\Follow Up Orders " & dated & ".xlsx"