Da Blattnamen Leerzeichen enthalten können ist der Name immer in Apostrophe zu setzen.
... = "='" & Worksheets(i).Name & "'!D6"