'Macro name: dateischlieen'

Sub MAIN
wrd
On Error Resume Next
FileClose
End Sub
