重命名多本书

有book1,其中一列是旧书的名称,另一列是新书的名称(旧书需要在新书里重新命名) 出现错误:运行时错误54在第行中找不到文件(第一个)

    Name OldName As NewName

代码:

   Sub Êë()

    Dim OldName, NewName
    Dim book1 As Workbook
    Dim t As Long, m As Long, n As Long

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    Set book1 = Workbooks.Open("E:\Super M\Ïðîåêò ñòàâêè\Ïîèñê ðåøåíèÿ\Óñîâ 
            7\âñïîìîãàòåëüíûå ïðîãðàììû\Êíèãà â ëèñò\âèç.xlsx")
    For t = 3 To 5
      book1.Worksheets("îáù").Range("C" & t).Value = n
      book1.Worksheets("îáù").Range("C" & t).Offset(0, 1).Value = m

    OldName = "n": NewName = "m"

    Name OldName As NewName
    OldName = "E:\Super M\Ïðîåêò ñòàâêè\Ïîèñê ðåøåíèÿ\Óñîâ 7\âñïîìîãàòåëüíûå 
         ïðîãðàììû\Êíèãà â ëèñò\Îòáîðíûå óñëîâèÿ\Îòêóäà\n": NewName = 
          "E:\Super M\Ïðîåêò ñòàâêè\Ïîèñê ðåøåíèÿ\Óñîâ 7\âñïîìîãàòåëüíûå 
         ïðîãðàììû\Êíèãà â ëèñò\Îòáîðíûå óñëîâèÿ\Êóäà\m"
    Name OldName As NewName

    Next t
    book1.Close

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True

    End Sub