Erro ao gerar MostraPainel1

Olá, bom dia!

Já assisti ao vídeo da MostraPainel1 algumas vezes e toda vez que tento fazer aparece o erro:

"Erro em tempo de execução '1004': Erro de definição de aplicativo ou de definição de objeto."

E aí quando eu clico em depurar, o código em VB é:

Sub MostraPainel1()
'
' MostraPainel1 Macro
'

'
    ActiveCell.Columns("A:S").EntireColumn.Select
    ActiveCell.Offset(0, 18).Range("A1").Activate
    Selection.EntireColumn.Hidden = False
    ActiveCell.Offset(0, 1).Columns("A:Q").EntireColumn.Select
    ActiveCell.Offset(1, 1).Range("A1").Activate
    Selection.EntireColumn.Hidden = True
    ActiveCell.Offset(0, 18).Columns("A:Q").EntireColumn.Select
    ActiveCell.Offset(0, 18).Range("A1").Activate
    Selection.EntireColumn.Hidden = True
    ActiveCell.Offset(-1, -37).Range("A1:A20").Select
End Sub