Sub ファイル名を変更する()
    
    'ThisWorkbook.Path は同じ場所
    前ファイル名 = ThisWorkbook.Path & "\" & Range("A2")
    後ファイル名 = ThisWorkbook.Path & "\" & Range("B2")
    
    Name 前ファイル名 As 後ファイル名

End Sub