Bom dia!!

Use a pesquisa do fórum!!
viewtopic.php?f=10&t=5669
viewtopic.php?f=10&t=4037
viewtopic.php?f=23&t=2663
viewtopic.php?f=10&t=1553
Tente adptar

Dim obj As MSForms.Control
  For Each obj In Me.Controls
   If obj = "" Then
    MsgBox "Favor Preencher " & obj.Name
     Exit Sub
    End If
  Next

'Código para criar preenchimento obrigatório (neste caso em ComboBox)

Private Sub CommandButton1_Click()

Dim Msg
Msg = "Preenchimento Obrigatório"   ' Define a mensagem

    If ComboBox1.Value = "" Then
            strVazia = "NOME"
                MsgBox (strVazia & ",  INVALIDO"), vbCritical, Msg
                ComboBox1.SetFocus
                
        ElseIf ComboBox2.Value = "" Then
            strVazia = "SOBRENOME"
                MsgBox (strVazia & ",  INVALIDO"), vbCritical, Msg
                ComboBox2.SetFocus
        
        ElseIf TextBox1.Value = "" Then
            strVazia = "Matricula"
                MsgBox (strVazia & ",  INVALIDA"), vbCritical, Msg
                TextBox1.SetFocus
                
    Else
        
        'Se todos os Campos Preenchidos
        'Continua a Ação
        'COLOQUE AQUI SUA ROTINNA PARA CONTINUAR
        
    End If
End Sub

Att

Alexandre

Não consegui resolver meu problema. Poderia dar uma olhada no meu código para me ajudar?