Send mail, forudsat at celler er udfyldt.

Tilføj nedenstående mellem overskrift= og IF Applivation.Mailsystem

    For Each c In Range("a1:a20").Cells
        If IsEmpty(c.Value) Then
            MsgBox "Alle celler i A1 til A20 skal være udfyldt", vbCritical
            Exit Sub
        End If
    Next c

Sådan kan koden se ud:

Private Sub CommandButton1_Click()
Modtager = ActiveSheet.Range("J4")
overskrift = ActiveSheet.Range("C28")
    For Each c In Range("a1:a20").Cells
        If IsEmpty(c.Value) Then
            MsgBox "Alle celler i A1 til A20 skal være udfyldt", vbCritical
            Exit Sub
        End If
    Next c

If Application.MailSystem <> xlNoMailSystem Then
  ActiveSheet.Copy
    With ActiveWorkbook
        .SendMail _
        Recipients:=Modtager, _
        Subject:=overskrift
        .Close SaveChanges:=False
  End With

  Application.MailLogoff
  Else
    MsgBox "Inget Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If
End Sub

Du imponerer mig gang på gang; men det er ufatteligt lærerigt. Jeg valgte dog at lave denne om til en tabel i stedet.
Lægger du lige et svar, så du kan få dine point?
Tusind tak for hjælpen.

Velbekomme :-)