重命名提取文件的位置

我有一个重命名文件的 VBA 宏。我有这个文件存在的完整路径，但我想独立于它的位置重命名这个文件。

Private Sub Workbook_Open()
    Dim sFileName As String, sNewFileName As String

    sFileName = "C:\Users\me\Desktop\text.txt"    
    sNewFileName = "C:\Users\me\Desktop\test1.txt"    
    If Dir(sFileName, 16) = "" Then MsgBox "File not found", vbCritical, "Error": Exit Sub

    Name sFileName As sNewFileName 'rename file

    MsgBox "file has been renamed"
End Sub

我的意思是，如果您使用此 Excel 文件和text.txt文件提取存档并启动它，test.txt它将独立于其位置找到并重命名它。