Boa tarde!!

Use a Pesquisa e Biblioteca do fórum.

Poste um modelo compactado, eu não o que quer dizer com Checkbox, é um controle de formulário ou da planilha (Controles ActiveX)???
tente adptar
exemplo:

Private Sub CheckBox1_Click() 
    Range("A").EntireRow.Hidden = CheckBox1.Value 
End Sub 

OU...

Private Sub CommandButton1_Click()
     
    On Error GoTo errHandler
     
    Columns("AI:AX").Select
    Selection.EntireColumn.Hidden = True
     
    If CheckBox1.Value = True Then
        Columns("AJ").Select
        Selection.EntireColumn.Hidden = False
        Columns("AR").Select
        Selection.EntireColumn.Hidden = False
    End If
     
    If CheckBox2.Value = True Then
        Columns("AK").Select
        Selection.EntireColumn.Hidden = False
        Columns("AS").Select
        Selection.EntireColumn.Hidden = False
    End If
     
    Unload UserForm1
    Exit Sub
errHandler:
    MsgBox "Não houve erro - " & Err.Number & " - " & Err.Description
End Sub

Att

olhe ai nas imagens que eu coloquei se teria como!

Gente por favor me ajudem!

As instruções que o Colega Alexandre passou já são suficientes, então segue mais uma de acordo com a imagem que postou, que seria ocultar a coluna "U" :

Private Sub CheckBox1_Click()

    If CheckBox1.Value = True Then
        ActiveSheet.Columns(21).Hidden = True
    
    Else
        ActiveSheet.Columns(21).Hidden = False
   
    End If
   
End Sub

Para saber mais sobre a Propriedade Columns, na tela do VBA posicione o cursor sobre a palavra e tecle "F1", terá varias outras opções.

[]s

vou fazer o teste e aviso

De uma olhada por favor.

eu não consegui, fica aparecendo DEPURAR

Leo, em seu modelo não tem o controle CheckBox, vá na guia desenvolvedor, adicione o Controle Activex CheckBox, de dois clique no mesmo e na tela que abir cole instrução que postei acima.

[]s

se for mais de uma coluna o que eu mudo no código?

Boa tarde!!!
Outra form seria...

Private Sub CheckBox1_Change()
Dim Rng As Range
Set Rng = Range("A:A") 'Acrecente aqui as colunas

    Rng.Columns.Hidden = CheckBox1.Value
    
End Sub