To save single worksheet in excel to source folder with desired name

I have a macro enable workbook in my local folder. This workbook consists of 7 worksheet in total. Last sheet named as "AnsSheet". I want to save the last sheet (AnsSheet only) in the same folder location with modified name. Here is the code I am using which is not giving desired result.

Could you please guide. Thanks in advance.

Sheets("AnsSheet").Select
   Set wb = Workbooks.Add
   ThisWorkbook.Sheets("AnsSheet").Copy Before:=wb.Sheets(1)
   ActiveSheet.SaveAs Filename:=ActiveWorkbook.Path & "WF_Macro_" & Format(Date, "DD-MMM-YYYY") & ".xls"