Office: (Office 2019) Dateiformat und Dateierweiterung passen nicht zueinander

Hallo,
ich habe mal wieder ein kniffliges Problem welches ich seit Tagen nicht lösen kann.

Folgender VBA code liegt vor:
Private Sub CommandButton1_Click()
' Verweis auf Microsoft Outlook Bibliothek setzen
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String ' 1) oder As Range
Dim EMailan As String ' 2) oder As Range
Dim strName As String

Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)

'Set Bezeichnung = [Tabelle1!G27] ' 1)
Bezeichnung = ActiveWorkbook.Name

'Set EMailan = [Tabelle1!A2] ' 2)
EMailan = "email@aol.com"

strName = ActiveWorkbook.Path & "Tabelle2 " _
& Format(Date, "DD.MM.YYYY") & ".xls"
' Range("G38").Value = strName

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("Tabelle2").Copy
ActiveSheet.Name = "Tabelle2"
ActiveWorkbook.SaveAs strName

With objMail
.To = EMailan
.Cc = "email1@gmail.com; email2@aol.com"
.Subject = "Mein Tabellenblatt"
.Body = "Hallo Kollege"
.Attachments.Add ActiveWorkbook.FullName
.Attachments.Add "D:/Office 2019/Excel/Mein_Textdokument.txt"
.Display ' Display für Indirektversand oder .Send für Direktversand
End With

ActiveWorkbook.Close
Kill (strName)

' Meldung:
' MsgBox ("Tabelle wurde erfolgreich versendet.")

Application.Goto Sheets("Tabelle1").Range("A1")
Application.ScreenUpdating = True

End Sub

Das Script funktioniert tadellos bis auf eine Kleinigkeit:
Mit dem code versende ich ein einzelnes Tabellenblatt aus einer Excel Mappe heraus.
Wenn ich die mit outlook gesendete Datei "Tabelle2 22.12.2019.xls" öffnen möchte, bekomme ich die Fehlermeldung "Dateiformat und Dateierweiterung passen nicht zueinander"
Die Datei kann zwar mit "Ja" bestätigt und damit geöffnet werden. Jedoch wäre es schön wenn diese Meldung erst gar nicht erscheinen würde.
Die Mappe habe ich bereits im .xlsm und auch im .xls Format abgespeichert um zu sehen ob die Meldung dann verschwindet. Aber negativ.
Eine Änderung des Dateiformats ins .xlsm im strName = ActiveWorkbook.Path bewirkt direkt eine Fehlermldung in Excel und lässt das Senden der Datei erst gar nicht zu.

Hat jemand eine Idee?

:)

 

Hallo,

so:

ActiveWorkbook.SaveAs Filename:=strName, FileFormat:=xlExcel8

 

Wie geil ist das denn?
Ich quäle mich hier Tagelang ab und komme zu keinem Ergebnis.
Und Du haust mir die Lösung innerhalb von Minuten um die Ohren.

Vielen Dank und frohes Fest.