Thank you! For some reason it keeps saying error. The 'Sub SplitData()' is highlighted in yellow and 'DDD = ObjDic.keys'. Is there something I am doing wrong? Can you give me step by step detail on how to run the macro?