Teresa Teixeira

Bom dia, Tenho um ficheiro e preciso que os campos data, processo/assunto, tipo documento e funcionario sejam de preenchimento obrigatorio. Se algum destes campos ficar em branco, dar uma mensagem que faltam preencher campos. Eu tenho este codigo, mas dá um erro: Private Sub Workbook_BeforeSave(Cancel As Boolean) If Data = "" Or IsNull(Data) Then MsgBox "O campo deve ser preenchido", vbCritical Data.SetFocus Else If Processo / Assunto = "" Or IsNull(Processo / Assunto) Then MsgBox "O campo deve ser preenchido", vbCritical ProcessoAssunto.SetFocus Else If TipoDocumento = "" Or IsNull(TipoDocumento) Then MsgBox "O campo deve ser preenchido", vbCritical ProcessoAssunto.SetFocus Else If NomeFuncionário = "" Or IsNull(NomeFuncionário) Then MsgBox "O campo deve ser preenchido", vbCritical NomeFuncionário.SetFocus Else End If End If End If End If End Sub Alguém pode dar uma ajuda? Obrigada.