E-mail Empfänger

mit dem untenstehenden Code versende
ich im Excel eine Nachricht. Da ich mehrere
E-mail Empfänger habe ("b7:b10"), bekomme
ich bei Ausführung des Makros einen Laufzeit-
fehler: Die untere Array-Grenze muss Null sein.
Da sich in meinem Sheet die E-mail Adressen jedes
mal ändern, kann sie nicht direkt im Code hinterlegen.
Hat jemand eine Idee ?

Sub Mailversenden()

Dim outobj As Object
Dim mail As Object

Set outobj = CreateObject("outlook.application")
Set mail = outobj.createItem(0)
mail.Subject = "Bericht"
mail.body = "Bitte um Ausführung"

mail.to = Range("b7:b10")
mail.display

Set mail = Nothing
Set outobj = Nothing


End Sub