diff --git a/sc/qa/unit/subsequent_export-test.cxx b/sc/qa/unit/subsequent_export-test.cxx
index a32cd5af3fdc..2bc7a18d6317 100644
--- a/sc/qa/unit/subsequent_export-test.cxx
+++ b/sc/qa/unit/subsequent_export-test.cxx
@@ -1130,6 +1130,7 @@ void ScExportTest::testRichTextCellFormat()
     const OString xPath3("/x:styleSheet/x:fonts/x:font[" + nFontIdx + "]/x:b");
     assertXPath(pStyles, xPath3, "val", "true");
 
+    xNewDocSh->DoClose();
 }
 
 void ScExportTest::testFormulaRefSheetNameODS()