Hi,

Today I’m using this code again but this time instead of values we need to copy the formulas of that name range, I’ve tried a few things but I can’t make it to work with formulas, How can I change it to copy the formulas?

[VBA]
Sub M_snb()
Sheets("Sheet2").Range("A1:A4,C1:E4,G1:H4").Name = "snb_002"
For Each ar In Split(Mid(ThisWorkbook.Names("snb_002").RefersTo, 2), ",")
Sheets("Sheet3").Range(Split(ar, "!")(1)).Value = Evaluate(ar).Value
Next
End Sub
[/VBA]


Any help would be much appreciated