Este fórum está sendo desativado

[danielp]

Galera, criei uma aba modelo, nela tem um botão com a função de desproteger a planilha, criar uma cópia dele, excluir o botão e depois proteger a planilha. Porém toda vez que ele cria a cópia da aba fica com MODELO(2). Eu queria adicionar no código pra essa aba ficar com o nome do mesmo que estiver escrito na célula K1.

Private Sub CommandButton1_Click()

ActiveWorkbook.Unprotect Password:="123"
Sheets("MODELO").Select
Sheets("MODELO").Copy After:=Sheets(1)
ActiveSheet.Shapes.Range(Array("CommandButton1")).Select
Selection.Delete
ActiveWorkbook.Protect Password:="123"

End Sub

[JCabral]

Experimente:

Código: Selecionar todos

Sheets("MODELO (2)").Name  = Sheets("MODELO").Range("K1").Text

[danielp]

Experimente:

Código: Selecionar todos

Sheets("MODELO (2)").Name  = Sheets("MODELO").Range("K1").Text

Na verdade não deu certo porque a aba estrá com a K1 em branco. Então sim o funcionário irá preenchê-la nos conformes necessários. Alterando assim automaticamente o nome.
Poderia ser uma fórmula para todas as planilhas copiadas, ficarem com o nome da célula K1 da aba depois que a mesma for preenchida, não sei se é possível