Tabellenblätter senden

Sub einzelnes_blatt_senden()
Dim strTabelle As String
Dim wsTabelle As Worksheet
strTabelle = "Auswertung"
strTabelle = strTabelle
If strTabelle  "" Then
For Each wsTabelle In ThisWorkbook.Sheets
If wsTabelle.Name = strTabelle Then
Application.ScreenUpdating = False
Sheets(strTabelle).Copy
ActiveWorkbook.SendMail "test@testdomain.de; test2@testdomain.de", "Bewertung""
ActiveWorkbook.Close False
Application.ScreenUpdating = True
Exit For
Else
'               Tabelle mit dem eingegebenen Namen ist nicht vorhanden
If wsTabelle.Name = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name Then  _
MsgBox "Diese Tabelle gibt es nicht"
End If
Next wsTabelle
End If
End Sub