Sub foo()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Selection
Set rng2 = Application.InputBox(Prompt:= _
"Select Any Cell to paste to", Type:=8)
rng2.Value = rng1.Value
rng1.ClearContents
End Sub


Gord

On Mon, 6 Aug 2007 15:36:00 -0700, N.F wrote:

What if I want to add this feature to a macro??? How would I go about it
Any further help appreciated





"Gord Dibben" wrote:

How did that solve your problem?

Paste Special is not available when "cutting" cells, only when "copying".

Unless you are doing it two steps

1. Copypaste SpecialValues.

2. Go back to original cell and clear it.


Gord Dibben MS Excel MVP

On Mon, 6 Aug 2007 14:12:02 -0700, N.F wrote:

Thank You John. That solved my problem


"John" wrote:

Try Ediypaste specialvalue
--
John
MOS Master Instructor Office 2000, 2002 & 2003
Please reply & rate any replies you get

Ice Hockey rules (especially the Wightlink Raiders)


"N.F" wrote:

I have Row 31 (the entire row) in my worksheet in color and would like it to
remain as is. However Ill be cutting and pasting from other cells into cells
that lie in this row. When I cut and paste into the colored row the cell in
Row 31 changes to white. How can I cut and paste into my colored row
retaining the color by simply cutting the value and not the actual color???