Senhores, tenho uma planilha que criei,onde há uma caixa de listagem que navega entre as abas (planilhas) existentes. O problema é que quando se abre o arquivo, ela não funciona, e só começa a funcionar quando eu navego manualmente em uma guia. O que esta errado na macro?
A Macro tá aí embaixo. Alguma dica?
---
Private Sub cbo_ExibePlanilha_Change()
On Error GoTo Erro
'Se não for vazio
If cbo_ExibePlanilha.Text <> "" Then
'Seleciona a planilha escolhida
ThisWorkbook.Worksheets(cbo_ExibePlanilha.Text).Select
End If
Exit Sub
Erro:
MsgBox Err.Description
Exit Sub
End Sub
Private Sub Worksheet_Activate()
On Error GoTo Erro
Dim sh As Worksheet
'Limpa a combo
cbo_ExibePlanilha.Clear
'Lista todas as planilhas
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> ActiveSheet.Name Then
cbo_ExibePlanilha.AddItem sh.Name
End If
Next sh
Exit Sub
Erro:
MsgBox Err.Description
Exit Sub
End Sub
Postado : 24/10/2012 11:30 am