Para descobrir o nome de todas as planilhas de uma pasta de trabalho basta utilizar a macro abaixo. Com ela é possível obter o nome, o código e o índice e adicionar na planilha.
Sub Nomes_planilhas()
For i = 1 To Sheets.Count
Plan1.Cells(i + 1, 1) = Sheets(i).CodeName
Plan1.Cells(i + 1, 2) = Sheets(i).Name
Plan1.Cells(i + 1, 3) = i
Next
End Sub
Para fazer referencia às planilhas basta utilizar a macro abaixo. Pode ser utilizado somente uma das opções, todas fazem a mesma coisa.
Sub ativar_planilhas()
Plan2.Activate
Sheets("jan").Activate
Sheets(5).Activate
End Sub
