Copy info of a name range

[snb]

Did you try ?

[VBA]
Sub M_snb()
For Each it In [snb_001]
[snb_002].Cells(it.Row, it.Column) = it.formula
Next
End Sub
[/VBA]