Point：ファイル名の変更・ファイルの移動をしたい。Test1では、ファイル名の変更を、Test2では、ファイル名の変更と移動を行います。

Sub Test1()
    Dim OldName, NewName

      OldName = "OLD.xls"

      NewName = "NEW.xls"
      ' ファイル名を指定します。

    Name OldName As NewName
     ' ファイル名を変更します。
End Sub

Sub Test2()
  Dim OldName, NewName

    OldName = "C:\Folder1\OLD.xls"

    NewName = "C:\Folder1\NEW.xls"

  Name OldName As NewName 
  ' ファイルの移動と名前の変更を行います。
End Sub