Excel VBA: Criação de Botão para navegar entre planilhas

Vá em Inserir > Formas. Ao clicar com botão direito na forma, no menu que surgir escolha "Atribuir Macro".



Clique em "Novo" na janela que surgir e o Visual Basic se abrirá.
Selecione o VBAProject "EstaPasta_de_trabalho" e insirá o código abaixo. Os campos personalizáveis estão em azul.

Código:
Sub Botao()
ThisWorkbook.Sheets("Plan2").Activate
End Sub


O código diz que: a macro chama "Botao" e que nesta planilha eletrônica tem uma planilha chamada "Plan2". Quando a macro "Botao" é executada, "Plan2" deve ser ativada ("Activate").


Salve e feche a janela do Visual Basic. Clique na forma, que agora se tornou um botão e a ação de mudar para a planilha "Plan2" será executada. Para modificar ou visualizar a macro posteriormente, o atalho de abertura do VBA é alt+F11.

Excel VBA: Localizar e Substituir em Massa

O excel já possui uma função que localiza e substitui elementos em planilhas mas, quando existe a necessidade de localizar e substituir várias palavras constantemente, seria inteligente utilizar macros VBA para automatizar este processo.
A macro em questão é a seguinte:

Sub LocalizarSubstituir()
Sheets("Plan1").Select
Cells.Replace What:="AAA", Replacement:="BBB", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

O código deve ser inserido no editor VBA (atalho ALT da esquerda + F11). No menu "Projeto - VBAProject" a esquerda, ao clicar no modulo ou planilha existente para aplicar a macro, é aberto uma janela digitavel onde receberá este código. Após inserção e configuração dos campos personalizáveis (em azul), é necessário salvar este editor Visual Basic, fechá-lo, e efetuar o teste da macro no Excel em: Exibição > Macros. Ao selecionar o nome da macro criada, no caso "LocalizarSubstituir", e clicar no botão executar, a substituição configurada deve ser aplicada.


Explicando rapidamente o código, a primeira linha leva o nome da Sub de comando, "LocalizarSubstituir". Em Sheets, na segunda linha, traz o nome da planilha em que o código abrangerá ao ser executado. Entre as aspas de Cells.Replace What:= identifica o que é para ser substituído. E em Replacement:= é a parte onde traz para o que será substituído o informado no comando Em Cells.Replace What:= anterior.