Excel VBA - Renomeando a primeira ABA do Excel - Rename Worksheet

| Blog Office VBA | Blog Excel | Blog Access |

Este código dará o nome da sua planilha a primeira aba do seu arquivo. Isso pode dar um olhar mais profissional a sua aplicação (ou não). Tenha em mente que isso não funcionará se o nome do arquivo for maior do que 26 caracteres, o que, acredito, é o limite de comprimento da guia da planilha.

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