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

Inline image 1


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

TagsMacros, Excel, hyperlink, remove


Nenhum comentário:

Postar um comentário

diHITT - Notícias