Fermer une feuille excel

Bonjour,

j'ai fait une macro (macro overlap) qui ouvre 3 fichiers EXCEL(OVn°1, OVn°2, OVn°3) dans un dossier, elle copie des données de chacun de ces fichiers sur une autre feuille Excel (feuille macro overlap) qui elle, est enregistrée pour afficher ces calculs et des graphiques.
Je n'arrive pas à faire en sorte de fermer les 3 fichiers EXCEL ouverts à la fin de la macro.
Je ne maîtrise pas du tout le langage, j'ai réussi jusqu'à présent en m'inspirant de macros existantes.
J'ai essayé avec "close" et "object.close" mais de toute évidence, je ne suis pas douée.
voici la macro:

Sub Macrooverlap()
'
' Macrooverlap Macro
'

'
Workbooks.OpenText Filename:="m:\LC\Shared\Entretien\Suivi Labo\Fichiers EZ sauvés\OVn°1.xls", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)

Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("macro OVERLAP.xls").Activate
Range("F3").Select
ActiveSheet.Paste
Workbooks.OpenText Filename:="m:\LC\Shared\Entretien\Suivi Labo\Fichiers EZ sauvés\OVn°2.xls", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("macro OVERLAP.xls").Activate
Range("G3").Select
ActiveSheet.Paste
Workbooks.OpenText Filename:="m:\LC\Shared\Entretien\Suivi Labo\Fichiers EZ sauvés\OVn°3.xls", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("macro OVERLAP.xls").Activate
Range("H3").Select
ActiveSheet.Paste
End Sub

Merci d'avance