Sub Move_WB()

' * ' Initialize
      Const NewPath As String = "C:\MyWBs\"


' * ' Define variables
      Dim CurrentPath As String
      CurrentPath = ThisWorkbook.FullName


' * ' Move WB
      ThisWorkbook.SaveAs NewPath & ThisWorkbook.Name
      Kill CurrentPath

End Sub