SendKeys "{esc}", True
Windows(MyFile).Activate
ActiveWindow.Close
'''''''''''''''''''''''''''''''''''''''''
''''''''''PLANTAGE ''''''''''
'''''''''''''''''''''''''''''''''''''''''
Application.DisplayAlerts = False
Kill "C:\Users\choupi\Desktop\Bio\*Results*"
End Sub