Guru do Excel e Power BI

Sub Oculta_colunaAno()
' Macro desenvolvida pelo usuario daniexcel

' A macro analisa a linha 2... ou seja, os valores devem estar na linha 2


 Range("a1").Select
' S é a sua célula de consulta. O valor buscado nas colunas é o da célula A1

 s = [a1].Value
 
' insira o total de colunas a serem consultadas
' a analise começa na coluna B (2) e vai até a coluna correspondente ao numero 50 (ax). Voce pode alterar de acordo com sua necessidade
 For i = 2 To 50
 ' T determina a linha a ser consultada. Neste caso, utilizamos a linha 2. Se desejar alterar  a linha, favor alterar abaixo
 
 t = Cells(2, i)
 
 ' quando encontra uma célula em branco na linha 2, o loop encerra automaticamente, pois a macro entende que a busca acabou
 
 If t = 0 Then Exit For
 t1 = Val(t)
 
 ' Para cada célula com o valor do ano desejado, exibe uma mensagem de alerta. Se preferir sem, basta deletar a linha abaixo
 MsgBox t1
 
 ' aplica a regra para ocultar as colunas da célula A1
 If t1 <> s Then
 Columns(i).Hidden = True
 Else
 Columns(i).Hidden = False
 End If

 Next i
 End Sub