Habilitar e desabilitar cabeçalhos de linhas e colunas

Neste exemplo o mesmo botão habilita e desabilita o cabeçalho de linhas e colunas

Sub cabecalhos()

ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings

End Sub