Índice
Como definir um nome de tabela usando uma macro
Deseja certificar-se de que o nome da tabela ativa está definido com o texto que pode ser encontrado em uma célula específica da tabela? Use a seguinte macro:
Definir nomes de subtabelas ()
Dim Cell As String
Cell = "a1"
ActiveSheet.Name = ActiveSheet.Range (cell) .Text
End Sub
Com o valor da variável célula definir de qual célula o texto deve ser retirado. Para fazer isso, transfira a referência de célula apropriada (aqui: A1) como o endereço.
A macro obtém o conteúdo da célula correspondente na tabela ativa. A planilha atual é então renomeada de acordo. A figura a seguir mostra um exemplo de tabela renomeada:
