【マクロ】２回実行したら、エラーにならずに、既に実行済みメッセージを出したい

以下のコードをご覧ください。
ファイル名を変更します
a3セル（ファイルフルパスが記載）のファイル名をa7（ファイルの名前のみ）に変更します

コードは、動きます。ただ、２回実行すると

fso.GetFile(filePath).Name = newFileName

デバックとなります

質問したいことは、２回実行した時に
「既にファイル名は変更済み」とメッセージを出したいです

ご存じの方、宜しくお願いします

【コード】
Sub ファイル名変更()

Dim fso As Object
Dim filePath As String
Dim newFileName As String

'変更前のファイルのパスを指定

filePath = Range("a3")


'変更後のファイル名
newFileName = Range("a7") & ".pdf"


Set fso = CreateObject("Scripting.FileSystemObject")

'ファイル名を変更

fso.GetFile(filePath).Name = newFileName

'後片付け

Set fso = Nothing


End Sub

No.2 回答者： tatsumaru77 回答日時： 2024/07/02 12:07

No1のかたのアドバイスに従い、修正してみました。

以下のようにしてください。

Sub ファイル名変更()

Dim fso As Object
Dim filePath As String
Dim newFileName As String

'変更前のファイルのパスを指定

filePath = Range("a3")


'変更後のファイル名
newFileName = Range("a7") & ".pdf"


Set fso = CreateObject("Scripting.FileSystemObject")
'ファイル存在チェック
If fso.FileExists(filePath) = False Then
MsgBox (filePath & "が存在しません。" & vbLf & "既にファイル名は変更済み" & vbLf & "もしくは、変更前のファイル名が誤っています")
Exit Sub
End If
'ファイル名を変更

fso.GetFile(filePath).Name = newFileName

'後片付け

Set fso = Nothing


End Sub

No.1 回答者： fujillin 回答日時： 2024/07/01 23:42

こんばんは

＞２回実行すると
＞　～～～
＞デバックとなります
エラーの原因がわかっていますか？
対象とするファイルが（すでに）存在しないので、GetFileメソッドが失敗するからです。

＞２回実行した時に
＞「既にファイル名は変更済み」とメッセージを出したいです
ファイルが存在するかどうかを、事前に確認すれば良いでしょう。
https://learn.microsoft.com/ja-jp/office/vba/lan …
存在しない時は、お好きなメッセージを出せば宜しいかと。