CreateObject("scripting.dictionary") Add Item Problem---->Empty Cells

Hi experts,

1- Open enclosed file "Book1"
2- Run Macro1 in order to see what Macro1 is doing.
3- Close "Book1".
(Everything is okey for Book1)

4- Open enclosed file "Book2"
5- Be careful that Cell B14, Cell B15 and Cell B16 are empty.
5- Run Macro1 in order to see error!

Actually, the reason of error is empty cells.

Because empty data sheet name can not to be filled.

How can I solve this error ?

How CreateObject("scripting.dictionary") Add must not took empty data!

Regards

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Change

        If Not .exists(varitem) Then .Add varitem, Nothing

to

        If Not IsEmpty(varitem) Then .Item(varitem) = Empty

PS.

I saw Norie's comment after I have posted this post.
I think the thread title is clear enough....

Thanks Norie
Thanks jindon