Excluindo Estilos Indesejados com VBA

Quando você trabalha com outras pessoas que usam o Excel, não é incomum para copiar planilhas de suas pastas de trabalho em seu próprio livro. Ao fazê-lo, a planilha não é a única coisa que é copiada em Excel também copia seus estilos de formatação para a sua pasta de trabalho. Manualmente excluir os estilos indesejados pode ser um incômodo, dependendo do número de estilos.

Como remover estilos indesejados com VBA?

Remover estilos definidos pelo usuário é muito fácil, no entanto, você pode usar uma macro. A macro a seguir irá eliminar rapidamente os estilos indesejados:

Sub StyleKill()
    Dim styT As Style
    Dim intRet As Integer

    For Each styT In ActiveWorkbook.Styles
        If Not styT.BuiltIn Then
            intRet = MsgBox("Delete style '" & styT.Name & "'?", vbYesNo)
            If intRet = vbYes Then styT.Delete
        End If
    Next styT
End Sub

A macro precisa de apenas uma entrada do usuário pouco. Sempre que a macro detecta um estilo definido pelo usuário, você será perguntado se deseja apagá-lo. Clicando no botão Yes faz com que o estilo a ser removido da pasta de trabalho.