babdallas Muito Obrigado babdallas, funcionou como eu queria. Consegui também usando o proc: =PROC(2^15;LOCALIZAR($E$2:$E$4;$A2);$E$2:$E$4) Em ane...

Tem alguma razão especifica que tenha que ser a primeira tela e nao a segunda..... Pq acho que não da pra fazer isso por VBA. A segunda tela de visu...

Troque por: Application.Dialogs(xlDialogPrint).Show Olá Mauro, já havia tentado, mas também não abre a mesma tela do CTRL+P(ARQUIVO>>...

Allexandre Isso mesmo, obrigado. Adaptei um pouco e ficou assim. Sub SelecionarAbas() Dim abas() As String For Each ws In ThisWorkbook.Sheets...

Você quer que as abas sejam selecionadas todas de uma vez, ou que se oculte as que não estão na relação ? É para executar alguma outra ação após sele...

Muito Obrigado Reinaldo, é isso mesmo que preciso, agora é só eu adicionar outros critérios mudando a palavra "Interior" para "Borders&...

Obs.: Também é possível fazer através do Substituir, o problema é que tem que fazer o De/Para cor por cor.

Perfeito Mauro. Resolvido! Obrigado.

Obrigado gtsalikis, funcionou direitinho. Tem como me ajustar com a continualção desse código, eu inseri a parte abaixo na Function, para não deixar ...