Saving file to same folder where macro is located

[UAL225]

Hi,

How do I get the below to save in the same folder the file is located in? If this is located in desktop/macro folder how can I have this output to also save in that same folder rather than My Documents?

ThisWorkbook.Sheets("Sheet3").Copy
ActiveWorkbook.SaveAs Filename:="CSV_STS_Feed_" & FYear & FMonth & FDay, FileFormat:=xlCSV, CreateBackup:=True
ActiveWorkbook.Close