Este fórum está sendo desativado

[leoberto]

Pessoal tem como criar uma condição no combobox (formulário) para selecionar uma guia e ativá-la tipo

Combobox.value ou text = Planilha1, Planilha2 then
Sheets (Planilha1).Select
Sheets(Planilha1).Activate

Não quero usar o Private Sub cbmes_Change()
Quero colocar a instrução dentro de um botão. Ou seja quando eu selecionar a opção Planilha1 clico no botão e abre a planilha.

[joseA]

Para teste em um formulário adicione um ComboBox1 e copie/cole:

Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
ComboBox1.AddItem sht.Name
Next sht
End Sub
Private Sub comboBox1_Click()
Sheets(ComboBox1.ListIndex + 1).Activate
Unload Me
End Sub