JOVANCIRCARIS

@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.

@CasaDoHardware A escolha tem um critério pois vou realizar esta formatação ( ocultar colunas) em varias planilhas a partir de uma planilha com um determinado cabeçalho/titulo.

Ola, estou tentando escrever um codigo no qual a partir de um cabeçalho/Titulo oculte demais colunas que nao tenham aquele cabecalho/titulo. No exemplo abaixo eu tenho o cabeçalho/titulo = A; B; C; D eu gostaria de poder localizar os cabeçalhos/titulo A e C e ocultar todos outros. Desde ja agradeço a ajuda;