VBA to create sheets based on cell values

Hello everyone, I have a workbook where I have the macro below. It looks at the data in column D and creates a tab then names it the value of the cell. It works but I am having a few issues, (1) the macro creates 9 worksheets even if the cell values are null. (2) The macro creates a “dummy” worksheet if the value in column “D” is a duplicate.

The current range is “D2:D10”. The range in workbooks can be 1 to almost ten thousand. I tried to change the range to “D2:D” but got an error.
Thoughts?

From there I need guidance, I need to reference those created worksheets and add headers. I am not sure how to reference those specific worksheets since the names can change depending on what workbook I am working on.

Please Login or Register  to view this content.

Try:

Please Login or Register  to view this content.

This should do it:

Please Login or Register  to view this content.

You are very welcome.