既に同名のファイルが存在しています。(エラー番号：58)

---

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

主に、Nameステートメントでファイル名を変更するときなど、変更しようとした新しい名前のファイルがすでに存在していると起こります。

新しい名前のファイルがすでに存在しているかどうか、Dir関数で調べてからNameステートメントを実行しましょう。

Sub Sample2()
    If Dir("C:\Sample1.txt") <> "" Then
        MsgBox "C:\Sample1.txt はすでに存在します"
    Else
        Name "C:\Sample.txt" As "C:\Sample1.txt"
    End If
End Sub