@CasaDoHardware Entao, preciso que ele busque os Titulos "A" e "C", neste exemplo seria ocultado as colunas "B" e "D"
adicionado 13 minutos depois
@CasaDoHardware Pensei no codigo abaixo:
Sub teste()
Range("A1").Select
If ActiveCell <> "A" Then
If ActiveCell <> "C" Then
Selection.EntireColumn.Hidden = True
End If
End If
Range("B1").Select
If ActiveCell <> "A" Then
If ActiveCell <> "C" Then
Selection.EntireColumn.Hidden = True
End If
End If
Range("C1").Select
If ActiveCell <> "A" Then
If ActiveCell <> "C" Then
Selection.EntireColumn.Hidden = True
End If
End If
Range("D1").Select
If ActiveCell <> "A" Then
If ActiveCell <> "C" Then
Selection.EntireColumn.Hidden = True
End If
End If
Range("E1").Select
If ActiveCell <> "A" Then
If ActiveCell <> "C" Then
Selection.EntireColumn.Hidden = True
End If
End If
End Sub
ele Funciona mas acho que deve existir algo mais "inteligente" de se fazer.