Guru do Excel e Power BI

Alguém consegue resolver o erro do meu código? não entendo porque não funciona

queria que cada caixa de seleção selecionada pudesse mostrar as colunas referidas ao calendário que eu criei, então comecei por janeiro mas diz que não há um "objeto" atribuído

Sub Jan()

If ControleAnual.Range("A19") = "VERDADEIRO" Then

Columns("F:AJ").Select

Selection.EntireColumn.Hidden = False

End If



If ControleAnual.Range("A19") = "FALSO" Then

Columns("F:AJ").Select

Selection.EntireColumn.Hidden = True



End If

End Sub

Também já tentei

Sub JANE()



If Range("A19").Value = "VERDADEIRO" Then

Columns("F:AJ").Hidden = True

Else

Columns("F:AJ").Hidden = False

End If



End Sub