VB有什么办法把多个Excel工作簿中的工作表名称改成默认的sheet1。

Sub Marco1()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    thisbk = ThisWorkbook.Name
    FileToOpen_N = Application.GetOpenFilename(Title:="请选择要合并工作簿：", MultiSelect:=True)
    On Error Resume Next
    For Each FileToOpen In FileToOpen_N
        Set OpenBook = Workbooks.Open(FileToOpen)
        OpenBook.Worksheets(1).Name = "sheet1"
        OpenBook.Close SaveChanges:=True
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub