Move the existing (opened) workbook to a new folder location

[subbby]

Hello,

Is it possible to move an open workbook to a new folder location ?

I am currently using

ActiveWorkbook.SaveCopyAs Filename:="C:\Subbby\Subbby Dance\Trial\" & ActiveWorkbook.Name
'& Worksheets("Sheet1").Range("P23") & " "
ActiveWorkbook.Save

However, with that there exists two copies of the same workbook. I want to avoid that . I would be referencing just the copy from C:\Subbby\Subbby Dance\Trial\

Therefore, is there a way to do this ? something like

I have a workbook open and I want a code to

1. find the current workbook's location,
2. copy this same workbook in a predefined location (C:\Subbby\Subbby Dance\Trial\) and
3. then go back to original file and delete it ?