Cerrar todas la ventanas activas en un MDI

Para cerrar todas las ventanas activas en un MDI, copias este codigo en el evento clicked de un item del menu:

Window lw_ActiveSheet

lw_ActiveSheet = ParentWindow.GetActiveSheet()

Do While IsValid(lw_ActiveSheet)

Close(lw_ActiveSheet)

lw_ActiveSheet = ParentWindow.GetActiveSheet()

Loop