Bom dia! Funcionou! Mudei um pouco a fórmula, mas deu certo Muito obrigada!!!

Boa tarde!! Eu não entendi muito bem Sub teste() Dim i As Long For i = 1 To 113 Columns(i).Hidden = Cells(1, i).Value = 1 Next i En...