Celcontrole vóór verzending per mail

Als rookie met VBA krijg ik het niet voor elkaar om mijn macro te laten controleren of een bepaalde verplichte cel is gevuld ja of nee, vóórdat de sheet per mail wordt verzonden. Code voor verzending van de mail is heel simpel (lang leve Google):

Sub Afleverformulier()
c01 = "<table border=1 bgcolor=#FFFFF0#>"

sn = Sheets("Afleverformulier").UsedRange
For j = 1 To UBound(sn)

c01 = c01 & "<tr><td>" & Join(Application.Index(sn, j), "</td><td>") & "</td></tr>"
Next
c01 = c01 & "</table><P></P><P></P>"

With CreateObject("outlook.application").CreateItem(0)

.To = " <e-mailadres>"
.Subject = "Afleverformulier"
.HTMLBody = c01
.Send

End With
End Sub

Ergens hier tussen zou ik graag het volgende willen:

If .Cells (12, 2)="" Then
'MsgBox "blah blah blah"
Application.goto .Cells (12, 2)
End If

Continue krijg ik de melding dat de foutopsporing niet werkt of dat er een End With wordt verwacht en dan markeert hij mijn Sub.

Iemand tips?

Niet te snappen wat je nu eigenlijk wil verstuurd zien .... bestandje uploaden hier ?

Dat was misschien wel zo handig geweest inderdaad. Bestand bijgevoegd

Werkt perfect !!!
bij zoverre dat ik zelfs zonder het te willen een mail verstuurd heb naar dat adres dat erin stond ! Hoop dat je dat zelf bent .... hihi ...

Controle nog even inbouwen ... momentje

Ja, het werkt wel (mail is ontvangen, haha). Ben benieuwd wat het wordt dan...

Hierbij ....

Send staat in comment-out voor test, om mail niet onnodig te verzenden !

Ah...Else dus. Maar nu verstuurd hij geen mail?

Graag gedaan ...
en je had ook een notatie ' .Cells ' gebruikt buiten je with / end with ...

Laat maar, haha. Ik las je bericht weer te snel. Opgelost! Bedankt voor de hulp!