Boa noite!!

Faça um adaptação .................

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

Att

ola alexandre!

até fiz com listbox, mas aparece todas as abas, gostaria de digitar o nome da plan para abrir a mesma, 1, 2, 3...

Wagner, veja se os tópicos abaixo ajudam :

Macro para listar e abrir guias de uma planilha
viewtopic.php?f=16&t=1019

Planilha - Usuário e permissões .... Help [Resolvido]
viewtopic.php?f=10&t=3439&p=15990&hilit=senha+e+usu%C3%A1rio#p15990

[]s

Bom dia!!

até fiz com listbox, mas aparece todas as abas

..então porque não tentou adaptar com Textbox???

Veja o exemplo no link:
http://www.sendspace.com/file/xpic1h

Att

Alexandre, não consegui adaptar de listbox para textbox, sou iniciante em VBA, mas to pegando legal.
Mauro, gostei do seu exemplo, mas não é isso que quero, mas com certeza vou adaptar ao meu projeto.

Parece ser bem simples o que eu quero, e bem próximo do que o Alexandre postou, tenho que digitar o nome na plan no TEXTBOX, clicar no BOTÃO (OK), o formulário se fecha, e vai para a plan de destino.

Quero ressaltar que sou iniciante em VBA, mas to pegando legal, estou analisando as macros de n planilhas que possuo.

Desde já, agradeço pela ajuda e atenção e ajuda de todos, e espero que possam me ajudar!

Att,

Boa tarde!!

Você não baixou meu arquivo ou baixou???
http://www.sendspace.com/file/xpic1h

Att

Alexandre, baixei sim, é neste modelo, mas quando digito por exemplo a plan2 (2), retorna a mensagem planilha não encontrada... o userform o textbox e o botão é isso mesmo, só falta o comando que preciso.

Att,

Boa noite!!

Eu não entendi seu questionamento, acabei de testar o arquivo que te mandei, eu não encontro problema, a mensagem aparecerá caso não encontra o nome digitado na texbox, considerando uma guia não existente!!

Favor verificar atentamente e ser mais claro!!

Att

Alexandre, funcionou perfeitamente, desculpe-me... testei no trabalho e não tinha funcionado mesmo, o pc é xp com office 2003, mas acabei de testar em casa com windows 7 e office 2007 funcionou perfeitamente, era o que eu queria... muitíssimo obrigado pela ajuda.

Att,

Wagner

Bom dia!!

Para manter o fórum organizado, n próxima vez lembre se de marcar seu tópico como resolvido!!!!!

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784

Att

Vlw Alexandre.