How to split Excel worksheet into multiple files?

Hi, How do I split an Excel worksheet with 10,000+ rows into multiple Excel files based on the values in column D via a Macro/VBA? The file has 9 columns (A:I), I also need the split files to automa...