Alnei

Boa tarde, como faço para criar o msgbox "não cadastrados", quando encontrar apenas a B4 vazia , abaixo minha macro e não consegui incluir msgbox. Sub consulta() Range("B4").Value = WorksheetFunction.VLookup(Range("B2"), Range("Bdados"), 3, 0) Range("B3").Value = WorksheetFunction.VLookup(Range("B2"), Range("Bdados"), 2, 0) Range("B5").Value = WorksheetFunction.VLookup(Range("B2"), Range("Bdados"), 5, 0) Range("B6").Value = WorksheetFunction.VLookup(Range("B2"), Range("Bdados"), 4, 0) Range("B7").Value = WorksheetFunction.VLookup(Range("B2"), Range("Bdados"), 6, 0) Range("B8").Value = WorksheetFunction.VLookup(Range("B2"), Range("Bdados"), 7, 0) Range("B9").Value = WorksheetFunction.VLookup(Range("B2"), Range("Bdados"), 8, 0) End Sub