Vba macro to add appointment to outlook from excel

I have a worksheet named ActiveCase starting A2. I need it to look at the batch date E2 then add a appointment with the
start = E2
subject = A2
location = B2
duration = all day

I also need it to stop if cells are blank.

http://www.ozgrid.com/forum/showthre...985#post672985


Thanks in advance

Case Excel.xlsm