Olá pessoal.

Estou precisando de uma ajuda num código em VBA e sou muito leiga no assunto.

Preciso fazer uma espécie de filtro horinzontal. Tenho diversas colunas contendo diferentes números, por exemplo: célula A2 ="0, 1, 2, 3"; célula B2 ="0, 2, 5, 6"; célula C2 ="0, 3, 4, 5, 6"; etc...
Preciso de uma macro que oculte as colunas que nao contiverem o número 1, por exemplo. Depois de outra macro que oculte as colunas que nao possuirem o número 2, e assim por diante.

Tentei comecar a fazer isso pelo código abaixo, mas nao está funcionando...
Alguém teria alguma ideia de como fazer isso?

Sub Macro1()
Dim i As String
For i = F To BH
If Range(i & "7") <> 1 Then
Columns(i & ":" & i).Select
Selection.EntireColumn.Hidden = True
Else
End If
Next i
End Sub 

Obrigada!