Ok guys. I give up..
I have completely re-written my code in a new workbook from scratch.
Still have the same problem. even if i change the variable names.
I have zipped my xl book and ask someone to have a look. Please...
The problem is in the function AddNewArea of frmSchedule code module.