não seria mais pratico ter um userform com um combobox
a macro ficaria mais ou menos assim...
Private Sub Nome_combobox1_DropButtonClick()
Call ComboBoxPLanilha("Nome_combobox1")' <<----chama a macro para preencher com nomes de planilhas
Sheets(Nome_combobox1.Value).Select' <<---Seleciona a aba excolhida
End Sub
Preenche o combobox com os nomes das abas existentes
Sub ComboBoxPLanilha(ByVal NomeCombobox As String)
With Me.Controls(NomeCombobox)
Do While .ListCount > 0: .RemoveItem (0): Loop
For Each sheetos In Worksheets
.AddItem sheetos.Name
Next
End With
End Sub
att
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
Postado : 20/08/2014 12:35 pm