Resolvido!!

'ocultar as colunas que não interessam

For coluna = 400 To 2 Step -1
If ThisWorkbook.ActiveSheet.Cells(10, coluna) = "ocultar" Then
ThisWorkbook.ActiveSheet.Columns(coluna).Hidden = True
End If
Next coluna

Um abraço!

julio, apesar de ter dado como resolvido, vejo que em sua rotina você tem a qde das colunas já definidas "For coluna = 400", então se sempre for esta qde tudo bem, mas se tiver somente 10 colunas a instrução irá executar 390 verificações em colunas desnecessárias, então sugiro a rotina abaixo onde contamos a qde de colunas e apos a verificação ocultamos conforme o criterio, nela tambem tem condição para reexibir.

Sub OcultaColunas()
    Dim rng As Range
    Dim i As Integer
    Dim sCol
       
    'Conta a qde de Colunas
    sCol = Cells(10, Cells.Columns.Count).End(xlToLeft).Column

    Set rng = Range(Cells(10, 1), Cells(10, sCol))

    For i = 1 To sCol
       
        sVal = rng.Columns(i).Value
           
        If sVal = "ocultar" Then
            rng.Columns(i).Hidden = True
        Else
            rng.Columns(i).Hidden = False
           
        End If
       
    Next i

End Sub

Só uma sugestão a mais.

[]s