Boa tarde ever

Movi teu tópico para o fórum VBA & Macros, pois você diz que precisa de 2 macros.
Onde vc havia postado é exclusivo para dúvidas sobre fórmulas e funções.

Por enquanto vou deixar o tópico sendo mostrado nos 2 locais.

[]s

Patropi - Moderador

Boa tarde!!

Use a pesquisa para completar seu código!!

Sub AleVBA_13655()
Dim MyArray As Range
Dim WS As Worksheet
Set WS = Sheets("Plan1")
Set MyArray = WS.Range("A5, A7, A9, A11, A14, A16, G7, N5, N9, O11, P9, P14, P16, T7, V9, W5, Z7, AC12, AC14, AC16")
    If IsEmpty(MyArray) Then
        MsgBox "Favor preencher as células vazias!"
      Else
        'Gera meu PDF
        'Envia Email
    End If
End Sub

Desde já, brigadao Alex.

Não deu certo, ele só está obrigando a preencher a célula A5, se eu preencher ela e o resto não, ele cria o pdf normalmente, a intenção é que ele crie o pdf somente após todos os campos estarem preenchidos.

Pode me ajuda??
Mais uma ver, brigadão!

Boa tarde!!

Então tente..

AleVBA_13655V2()
Dim MyArray As Range, cell As Range
Dim WS As Worksheet
Dim sList As String

Set WS = Sheets("Plan1")
Set MyArray = WS.Range("A5, A7, A9, A11, A14, A16, G7, N5, N9, O11, P9, P14, P16, T7, V9, W5, Z7, AC12, AC14, AC16")
For Each cell In MyArray
    If IsEmpty(cell) Then
        sList = sList & cell.Address & ","
    End If
Next
If Len(sList) > 0 Then
    sList = Left(sList, Len(sList) - 1)
End If
If sList <> "" Then
    MsgBox "Preencha as celulas!" & vbCrLf & sList
  Else
    'Faça.....
    'Gera meu PDF
    'Envia Email
End If

End Sub

Att