VBA E-Mail versenden mit Signatur

Sub a(r&)
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim Ol As Object, OlCreate As Boolean
On Error Resume Next
Set Ol = GetObject(, "Outlook.Application")
If Err Then
Set Ol = CreateObject("Outlook.Application")
OlCreate = True
End If
Ol.Visible = True
With Ol.createitem(0)
.To = Ws.Cells(r, "A")
.CC = Ws.Cells(r, "B")
.BCC = Ws.Cells(r, "C")
.Subject = Ws.Cells(r, "D")
.Body = Ws.Cells(r, "E")
.Display
End With
If OlCreate Then Ol.Quit
Set Wb = Nothing: Set Ws = Nothing: Set Ol = Nothing
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Row > 1 And .Column = 6 Then
Call a(.Row): Cancel = True
End If
End With
End Sub