Автоматически переименовывать вкладки

Приведенный ниже сценарий проходит цикл для создания вкладок и имени вкладки, затем он помещает имя вкладки в ячейку B3. Он работал нормально, но теперь выдает ошибку времени выполнения catch all 1004. Внизу моего скрипта он переименовывает вкладку. Вот где происходит ошибка. Он создает вкладки, но не может их переименовать. Может ли кто-нибудь предложить другой способ переименовать вкладку в этом скрипте. Ошибка находится в Таблицах (Имя). Выберите.

Public Sub CreateTabs()
  Sheets("TABlist").Select
  ' Determine how many Names are on Data sheet
  FinalRow = Range("A65000").End(xlUp).Row
  ' Loop through each Name on the data sheet
  For x = 1 To FinalRow
    LastSheet = Sheets.Count
    Sheets("TABlist").Select
    Name = Range("A" & x).Value
    ' Make a copy of FocusAreas and move to end
    Sheets("TABshell").Copy After:=Sheets(LastSheet)
    ' rename the sheet and put name in Cell B2
    Sheets(LastSheet + 1).Name = Name
    Sheets(Name).Select
    Range("B3").Value = Name
  Next x 
End Sub