' Exibe uma janela de entrada para o usuário preencher o novo nome para as folhas
Dim nomeNovo As String = InputBox("Digite o novo nome para as folhas:", "Alterar Nome das Folhas")

' Verifica se o usuário inseriu um nome
If nomeNovo <> "" Then
    ' Obtém o documento ativo
    Dim doc As Document = ThisApplication.ActiveDocument

    ' Verifica se o documento é do tipo DrawingDocument
    If TypeOf doc Is DrawingDocument Then
        Dim drawingDoc As DrawingDocument = CType(doc, DrawingDocument)

        ' Itera sobre todas as folhas do documento
        For Each folha As Sheet In drawingDoc.Sheets
            ' Altera o nome de cada folha
            folha.Name = nomeNovo
        Next

        ' Exibe uma mensagem de confirmação
        MessageBox.Show("Os nomes das folhas foram alterados para: " & nomeNovo, "Alteração Concluída", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Else
        ' Se o documento não for um DrawingDocument, exibe mensagem de erro
        MessageBox.Show("O documento atual não é um arquivo de desenho (IDW).", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End If
Else
    ' Se o nome não for fornecido, exibe uma mensagem de erro
    MessageBox.Show("Nenhum nome foi fornecido. A operação foi cancelada.", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If