XML Datei kann nicht geöffnet werden

Sub Erzeuge_xml()
Dim Original As String
Dim Kopie As String
Dim t As Integer
If Len(Dir("H:\Statistik HVB", vbDirectory)) = 0 Then 'Prüfe ob Verzeichniss vorhanden
MkDir "H:\Statistik HVB" 'erstelle Verzeichnis
End If
Worksheets("data").Copy
ActiveWorkbook.SaveAs "H:\Statistik HVB\" _
& Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) _
& "_" & Format(Now, "YYYYMMDDhhmmss") & ".xml"
ActiveWorkbook.Close False
End Sub

Wenn ich danach die erzeugte xml Datei öffnen möchte erhalte ich folgenden Fehler:
Die XML-Seite kann nicht angezeigt werden
Die XML-Eingabe kann nicht angezeigt werden, wenn Stylesheet verwendet wird. Beheben Sie den Fehler und klicken Sie dann auf Aktualisieren, oder wiederholen Sie den Vorgang später.
wo habe ich hier bitte den Fehler gemacht?
Danke
Josef