Como atribuir nome(texto) de uma celula para uma variavel worksheet no VBA?

Question

Bom dia,

Tentando explicar melhor:

Queria que dependendo da informação digitada na célula F19 da aba "Menu", ao clicar no botão mudará para aba cujo nome é o mesmo digitado na célula F19 da aba "Menu".

Exemplo:
Tenho 5 abas cujos nomes são: "Menu" , "Mayara", "Yuri", "Marcello" e "Reis"
Na aba "Menu", na Celula F19: foi digitado "Yuri"
Ao clicar no botão, vou mudar da aba "Menu" para aba "Yuri"

Código até o momento:
OBS: coloquei uma condição(if), para só acontecer se a célula H19 da aba "Menu" for de valor 2.

Sub MudaAba()

Dim Verificador As String
Dim nome As Worksheets

Sheets("Menu").Select
Verificador = Range("H19").Value

If Verificador = 2 Then

Set nome.Name = Range("F19").Text

Sheets(nome).Select

End If

End Sub

Answer 1

Boa noite Yuri.

Para atribuir uma variável à planilha a declaração é sem o "s":

Dim nome As Worksheet

Uma vez declarada, basta setá-la e utilizá-la diretamente. Também aconselho a apenas ativar a planilha e não selecioná-la:

Sub MudaAba()

Dim Verificador As String
Dim nome As Worksheet

Sheets("Menu").Activate 'Select
Verificador = Range("H19").Value

If Verificador = 2 Then

    Set nome = Sheets(Range("F19").Value)
    
    nome.Activate   'nome.Select

End If

End Sub

Abraço.

---

Filipe Magno