CHECK: you want to write in a cell known by its name (and this name is
given into an other cell, D5 in your example)

since you are sure the content of D5 is a cell name,
you may use : Range(Range("D5").value)