ファイル名 変更 リネーム

Sub Sample()
    Name "C:\Work\Sample.txt" As "C:\Work\Test.txt"
End Sub