Include current date in filepath

Try this

msgbox Format(Now(), "mmddyyyy")

     ChDir "H:\Desktop\Pipeline\Blank Manager Pipelines"
    ActiveWorkbook.SaveAs Filename:= _
        "H:\Desktop\Pipeline\Blank Manager Pipelines\BASSANI_" & Format(Now(), "mmddyyyy") & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook