Bom dia!!

Isso porque a linha abaixo está protegendo sua guia.

'.Protect AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True

Caso tente executar novamente (com a linha citada, comentada), não terá problemas!

Option Explicit


Public Sub PreencherTitulo()
   With ActiveSheet
      .Unprotect
      .Range("A1").Value = .Name
      .EnableSelection = xlUnlockedCells
      '.Protect AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True
   End With
End Sub

Att

Minha sugestão.

Use Ctrl+C pra copiar e Ctrl+V para colar.

(Edite o código para colar se precisar, escolha um dos casos que deixei lá, ou coloque outro conforme o que vc precisa).

Abs.

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.