About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2005-08-01
O Código:

Sub Auto_Open()
    Dim num As Integer

    num = ActiveWorkbook.Worksheets.Count
    ActiveWorkbook.Worksheets(num).Activate

End Sub