Bom dia.
Em uma planilha criei uma combobox, com lista de seis planilhas ocultas, mas não consigo reexibir estas planilhas através da lista da comobobox.
Como faço para nomear esta combobox?
Pois creio que o erro seja por não ter nomeado esta combobox como "cboIntegrantes"
Segue o código
Sub RedefinirPlanilhas(ByVal Opção As String)
'Percorre todas as planilhas
For Each plan In ThisWorkbook.Worksheets
'Exclui a planilha "menu principal" das ações executadas
If Not plan.Name Like "Menu Principal" Then
If Opção = "Iniciar" Then
'Adiciona como item da combobox
Sheets("Menu Principal").cboIntegrantes.AddItem plan.Name
End If
'oculta a planilha
plan.Visible = False
End If
Next
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 11/08/2011 6:47 am