copy named range & paste values

[J.W. Aldridge]

This works great with columns, but now need to copy named range

ActiveCell.EntireColumn.Value = ActiveCell.EntireColumn.Value

(my attempt)

Sub select_range()
Range("zero_range").Select
Copy.Range
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
End Sub

 

[Don Guillett]

Range("zero_range").value=Range("zero_range").value

 

[J.W. Aldridge]

thanx!!!