Signatur auswählen bei Wert in Zelle

Public Sub EmailDE()
Dim WSh As Worksheet, iZeile As Long
Dim olApp       As Object
Dim olMail      As Object
Dim strOldBody  As String
Set WSh = ThisWorkbook.Sheets("Bestätigungen")
Set olApp = CreateObject("Outlook.Application")
For iZeile = 2 To WSh.UsedRange.Rows.Count
If WSh.Cells(iZeile, "A").Value  "" Then
Set olMail = olApp.Createitem(0)
With olMail
.GetInspector.display
strOldBody = .HTMLBody
.to = xxx
.Subject = Fehlende Bestellung
.HTMLBody "Guten Tag

" _
& "Wir haben leider bis heute keine Bestellung erhalten.

" _
& "Wir bitten um Zustellung." _
& strOldBody
.display
'.send
End With
Set olMail = Nothing
End If
Next iZeile
End Sub