Pra mim deu certo assim:

Sub renomear_WB_GT()

Dim old_name As String
Dim new_name As String

new_name = "digite_o_novo_nome"
old_name = ThisWorkbook.FullName
ThisWorkbook.SaveAs new_name
Kill old_name

End Sub

Se quiser renomear com uma escolha personalizada de nomes, use assim:

Sub renomear_WB_GT()

Dim old_name As String
Dim new_name As String

new_name = InputBox("digite_o_novo_nome:")
old_name = ThisWorkbook.FullName
ThisWorkbook.SaveAs new_name
Kill old_name

End Sub

resultou para mim também. mas como e que eu sei que não tenho mais espaço num workbook?

eu estou a fazer um codigo para quando nao tiver mais espaço no workbook avisar, e criar um novo

Segundo este link:

https://support.office.com/en-nz/articl ... eb276e8eaa

O limite de sheets é definido pela quantidade de memória no computador.