Sub ki037()
  fff = Application.GetOpenFilename(Title:="名前を変更するファイルを指定")
  If fff = "False" Then
        MsgBox "ファイルを１個指定して下さい"
        Exit Sub
  End If
     dai = Dir(fff)
     ssa = Len(fff): ssb = Len(dai)
     phn = Left(fff, ssa - ssb - 1)
     fna = InputBox("変更後のブック名を入力して下さい", , dai)
     Name fff As phn & "\" & fna
End Sub