Tentou com: On Error Resume Next

Bom dia!! Enquanto isso..

Bom dia!! Leia: Sub Favor_Adaptar() Dim p, f, s, a, r p = "C:SuaPasta" f = Dir(p & "*.xls") s = &q...

Bom dia!! Seria isso? Att

Bom dia!! Para mais leia:

Boa noite Tadeuz Baixe a planilha e veja se é isto que vc quer: 21_07_14_Conforme o dia da semana_Patropi.zip Dê retorno. Se a resposta foi útil,...

Boa noite!! Na pesquisa encontrará tudo que precisa! Essa postagem faz isso! viewtopic.php?f=10&t=12588 Att

Boa noite!! Sim!! Mas há outras formas de se fazer isso! Att

Boa noite!! Tente isso.. Sub AleVBA_12609() With Application .ScreenUpdating = False .EnableEvents = False End With Dim Rng As Ra...

Boa noite!!

Boa noite!! O primeiro caminho é usar a pesquisa do fórum!!! Eu mesmo já postei algo bem relacionado com sua dúvida!! Att

Boa noite!! Somente por VBA! Att

Boa tarde!! Eu fico feliz que resolveu, obrigado pelo retorno!! Att

Boa tarde!! tente um loop Option Explicit Sub AleVBA_12604() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets 'Se...