No seu caso, como são apenas em duas planilhas que você quer utilizar a função, seria melhor a utilização do código Original do artigo em cada módulo de planilha.
Ou seja, apague este código que te passei anteriormente e insira os códigos originais publicados no artigo em cada planilha.

A solução que eu estava lhe apresentado era para reutilizar o código evitando digitação excessiva e uso de memória.

Agora deve ficar legal.

Abç

abraço

Já está corrigido lá.
O sinal de diferente “<>” foi suprimido na conversão do html. Agora está ok.

Abraço.

If cbo_ExibePlanilha.Text “” Then

If cbo_ExibePlanilha.Text “” Then

If Outras_Sh.Name Sh.Name Then

tentei corrigi-las deixando assim:

If cbo_ExibePlanilha.Text “” Then

If Outras_Sh.Name ActiveSheet.Name Then

Não sei se fiz certo, pois como disse naum entendo mto d vba. Mas depois que corrigi a plan parcialmente funcionou, porém a minha intenção naum eh ter o combobox em todas as planilhas, mas sim em apenas duas, entaum percebi que qdo navego entre as planilhas que contem o combobox, td ocorre bem, mas qdo navego em uma plan que naum tem o combobox, aparece o seguinte erro: O ambiente não aceita este ambiente ou método. Como posso evitar tal erro?

Pelo que entendi, você queria exibir em cada planilha a lista de todas as demais planilhas da Pasta de trabalho.
Bem. Neste caso, você, primeiramente, é claro, deveria adicionar em cada planilha, um combobox, de preferência com o mesmo nome [cbo_ExibePlanilha], para facilitar a inserção do código.
Em seguida, elimine a subrotina Private Sub Worksheet_Activate() da Plan1. Deixe apenas a subrotina Private Sub cbo_ExibePlanilha_Change(). O código de cada planilha seria apenas o descrito abaixo:

Private Sub cbo_ExibePlanilha_Change()
On Error GoTo Erro

Exit Sub
Erro:
MsgBox Err.Description
Exit Sub
End Sub

ATENÇÃO: Replique este codigo em todas as planilhas.

Agora, você precisa acessar o módulo de classe EstaPasta_de_trabalho e inserir o código abaixo:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error GoTo Erro
Dim Outras_Sh As Worksheet

Exit Sub
Erro:
MsgBox Err.Description
Exit Sub
End Sub

Salve o projeto.

Espero ter ajudado.
Abraço.
End Sub

Você pode definir manualmente as planilhas para cada combobox que você colocar no menu. Uma sugestão é você alterar o código que está no Evento Private Sub Wooksheet_Activate(), veja:

[code]
Private Sub Worksheet_Activate()
On Error GoTo Erro
Dim sh As Worksheet

'Limpa a combo
cbo_ExibePlanilha1.Clear
cbo_ExibePlanilha2.Clear

'Lista todas as planilhas para a 1a. combobox

cbo_ExibePlanilha1.AddItem "Nome da Planilha 1"
cbo_ExibePlanilha1.AddItem "Nome da Planilha 2"
cbo_ExibePlanilha1.AddItem "Nome da Planilha 3"

'Lista todas as planilhas para a 2a. combobox

cbo_ExibePlanilha2.AddItem "Nome da Planilha 4"
cbo_ExibePlanilha2.AddItem "Nome da Planilha 5"
cbo_ExibePlanilha2.AddItem "Nome da Planilha 6"

Exit Sub
Erro:
MsgBox Err.Description
Exit Sub
End Sub

Boa sorte, abrç

Como faço uma Planilha (Menu) com dois COMBOBOX,
onde o primeiro Combobox navega pela Plan1 – Plan2 e Plan3.
Enquanto o segundo Combobox navega pela Plan4 – Plan5 e Plan6.

Alguém tem algum exemplo?

Grato,

Grato,