With your code

ActiveWorkbook.SaveAs ("AWR leeg")

you need to supply a path as well or change to that directory befor
saving

eg

ActiveWorkbook.SaveAs (thisworkbook.path & "\AWR leeg"

--
Message posted from http://www.ExcelForum.com