Why doesn't the following work

Public Sub test()
Dim rng As Range, rng2 As Range
Set rng = Range("d_21")
Set rng2 = Range("div_21")
rng.Copy
rng2.PasteSpecial xlPasteAll
End Sub

I get a runtime error 1004. Application defined or object defined error. What gives. All I need to do is paste the range d_21 to div_21. Any ideas appreciated.

try fully qualifying your references
i.e.
worksheets("Sheet1").Range("div_21").Formula = Worksheets("Sheet2").Range("d_21").Fomula

another possibility is that excel is not picking up your named ranges try using the actual cell references

all the best
Dave