via CommandButton Mail versenden

[dev5fr]

Ich wollte die Zellen mit dem &  "verketten".
Aber die Syntax scheint nicht korrekt zu sein.
Wenn ich den Code nur auf eine Zelle reduziere, dann funktioniert ist.

Code:

Private Sub CommandButton1_Click()
On Error Resume Next
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
strhtml = Range("A7").Value & " <br>"
.to = "mail@an.de"
.cc = "kopie@an.de"
.htmlbody = strhtml
.display
End With
Set olApp = Nothing
End Sub