Jose, quando diz "planilhas abertas", suponho que esteja se referindo a "PASTAS" (WORKBOOKs.
Se for isto, a rotina abaixo exibe uma mensagem com o Nome de todos os WorkBooks abertos, é só adaptar para utilizar a Variavel.
Sub NavegarPastas()
Dim wb As Workbook
Dim x As String
For Each wb In Workbooks
'Verifica se tem outras Pastas Abertas
If wb.Name <> ThisWorkbook.Name Then
'Se o nome for diferente da pasta
'Guarda na Variavel "x" os nomes das outras pastas Abertas
x = IIf(wb.Name = ThisWorkbook.Name, wb.Name & " (this workbook)", wb.Name)
MsgBox "Pastas aberta, Nome " & vbCrLf & x
Else
'Se tivermos só a Pasta Principal aberta, sai da rotina
If Workbooks.Count = 1 Then Exit Sub
End If
Next wb
'Para ativar a Pasta da variável
'Dependendo de como irá utilizar, é só adaptar
'Então selecionará a última Pasta armazenada
Workbooks(x).Activate
End Sub
A rotina acima, foi uma adaptação que tirei do site :
VBA - Switching between Workbooks(Navegar entre WorkBooks)
http://www.mrexcel.com/forum/showthread.php?t=83547
Aproveitei e montei um exemplo com a dica sugerida pelo "Tom Urtis" no site acima, é bem interessante, é montado no Evento do Botão Direito do Mouse, um menu com todos os Workbooks abertos, se existir, selecionamos o que queeremos e ativamos, se não, exibe o menu padrão :
VBA - Switching between Workbooks(Navegar entre WorkBooks)
A Fonte e o Autor já estão citados a cima.
Espero que de para tirar proveito e adaptar.
Qualquer duvida, retorne.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 03/03/2012 10:16 pm