Bem, se você conhece um pouco este Blog, já deu prá perceber que o propósito deste código é estimulá-lo a conhecer mais o VBA do Excel e não dar nome a primeira aba. Divirta-se!
Sub
Rename_Sheet()
Dim
workbookName
As
String
workbookName = ActiveWorkbook.Name
If
Len(workbookName) > 26
Then
Exit
Sub
workbookName = Left(workbookName, Len(workbookName) - 4)
Sheets(1).Name = workbookName
End
Sub
Tags: Macros, Excel, hyperlink, remove
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEBM6Ev-ymPUIrEx4SjVDZlpWP4z3ZnHbM0LqMxXZB9FYoA6RBo63CRgJw0wDmcm0RF2CCawQAUCCO0Fmt4xlt3iShQyWZ7XP5XF_Bz06eBfIVbYGbkpLtl7DHWjnFztJrt4eNefAxl8nE/s320/VBA_Andre_Luiz_Bernardes-780899.jpg)
Nenhum comentário:
Postar um comentário