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

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



--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"J.W. Aldridge" <(E-Mail Removed)> wrote in message
news:c6f61ae2-a365-43c0-a2f9-(E-Mail Removed)...
>
> 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

thanx!!!