diff --git a/src/modules/mesh/inout/vtu/moduleMeshOutputVTU.f90 b/src/modules/mesh/inout/vtu/moduleMeshOutputVTU.f90
index 4f986c5..3462940 100644
--- a/src/modules/mesh/inout/vtu/moduleMeshOutputVTU.f90
+++ b/src/modules/mesh/inout/vtu/moduleMeshOutputVTU.f90
@@ -230,17 +230,16 @@ MODULE moduleMeshOutputVTU
         OPEN (fileID + 1, file = generateFilePath(fileNameCollection))
         WRITE (fileID + 1, "(A)") '<VTKFile type="Collection">'
         WRITE (fileID + 1, "(2X, A)") '<Collection>'
-        CLOSE(fileID + 1)
 
       else
+        OPEN (fileID + 1, file = generateFilePath(fileNameCollection), ACCESS='APPEND')
         ! Append removing the last two lines that close the <tags>
-        rewind(fileID)
-        rewind(fileID)
+        backspace(fileID + 1)
+        backspace(fileID + 1)
 
       END IF
 
       !Write iteration file in collection
-      OPEN (fileID + 1, file = generateFilePath(fileNameCollection), ACCESS='APPEND')
       WRITE(fileID + 1, "(4X, A, "//fmtReal//", A, A, A)") &
             '<DataSet timestep="', DBLE(timeStep)*tauMin*ti_ref,'" file="', fileNameStep,'"/>'