jonascruz,

Bom dia!

Não ficaram bons porque? Tá funcionando normalmente?

Anexe a planilha ou um modelo igual para ajudarmos melhor,amigo.

Mas já adianto que este processo que você quer pode ser resolvido com a estrutura For Each, juntamente com condições que gravam os Erros em variáveis, estes(erros/variáveis) concatenados e retornados em uma msgbox no final.

wagner, a estrutura dele não está perfeita porque ela analisa uma condição. Se ela atende a condição, retorna o valor verdadeiro e não percorre pelas demais. Ele quer que a estrutura verifique todas as situações e retorne os erros em uma só mensagem no final para o usuário.

Pelo menos foi o que entendi.

Entendi Leandro...

É... vamos aguardar para ver o que ele diz ou se anexa o arquivo.

Obrigado.

Tanto o arquivo quanto a macro está gigante, mas vou tentar postar aqui essa parte dela.

O que eu quero é fazer as 4 verificações (1 verificação em cada aba), independente do resultado.
No final, se alguma condição de erro foi atendida, exibir a mensagem (dentro do If) ou exibir mais de 1 erro.
E principalmente, não deve seguir com o código, deve abortar, para o usuário ir lá na aba e inserir os dados.
Se nenhuma condição de erro for atendida, significa que está tudo ok e aí sim o código segue normalmente.

Quando eu disse que não está bom é porque do jeito que escrevi, assim que ele achar alguma condição de erro, vai sair do laço, e eu quero que percorra as 4 verificações e apenas no final exiba um msgbox com o que deve ser feito.

Boa tarde

Veja se esse modelo te atende. (Verificar se a célula "A1" de cada Worksheet está preenchida e retorna uma msg box das que estão vazias)

att

jonascruz,

Veja se assim fica melhor para você.

@wagner, @leandroxtr
Muito obrigado pela ajuda.
Olhei as macros de vocês e ambas me ajudaram.

Permitam-me postar a adaptação que fiz.

Dim Erro1       As String
Dim Erro2       As String
Dim Erro3       As String
Dim Erro4       As String
Dim PossuiErro  As Boolean

PossuiErro = False

If WsBaseSmart.Range("A1").Value = Empty Then
Erro1 = "Estações Smartplan" & CARACT(10)
PossuiErro = True
Else
Erro1 = ""
End If

If WsBaseComp.Range("a1").Value = Empty Then
Erro2 = "Sites Compartilhados" & CARACT(10)
PossuiErro = True
Else
Erro2 = ""
End If

If WsBasePN.Range("a1").Value = Empty Then
Erro3 = "Plano Nominal (PN)" & CARACT(10)
PossuiErro = True
Else
Erro3 = ""
End If

If WsBaseMulta.Range("a1").Value = Empty Then
Erro4 = "Multas" & CARACT(10)
PossuiErro = True
Else
Erro4 = ""
End If

If PossuiErro Then
    MsgBox = "Antes de executar sua macro, carregue as bases: " & Erro1 & Erro2 & Erro3 & Erro4
    Set WsBase = Nothing
    Set WsBaseSmart = Nothing
    Set WsBasePN = Nothing
    Set WsBasePNok = Nothing
    Set WsBaseComp = Nothing
    Set WsBaseCompOK = Nothing
    Set WsBaseMulta = Nothing
    Set WsBaseMultaOK = Nothing
    Exit Sub
End If