Save Active Sheet As New Workbook in same folder of the original workbook

[Taislin]

Hi... i have a file where i have a macro to export the active sheet to a new workbook and save it. The problem is the macro exports the data and saves the file but in documents folder, and i would like it saves directly in the same folder where the original file is. Need to say that the folder where is the original file may vary. The code i have in the present is this:

Sub Report_Transfer()

    ActiveSheet.Copy
    With ActiveSheet.UsedRange
        .Copy
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs "Exported Report"
End Sub

but this saves in Mydocuments :/