EXCELer Tudo sobre EXCEL em Português
O Código:
Sub Auto_Open()
Dim num As Integer
num = ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(num).Activate
End Sub
Check Also
Extrair Apelido
Fórmula em C2: =SUBSTITUIR(A2;1;PROCURAR(“#”;SUBST(A2;” “;”#”;NÚM.CARACT(A2)-NÚM.CARACT(SUBST(A2;” “;””))));””) Função em C3 : =Apelido(A2) VBA: Function Apelido(r As …