You don't have to cut and paste. You can do this:

Range("A1").Value = Range("A1").Value

Hope this helps! If so, click "YES" below.
--
Cheers,
Ryan


" wrote:

Trying to just copy a cell and paste it back into the same cell but as
just the value. It won't do it. It never debugs it just doesn't do
it.....

ThisWorkbook.Worksheets("Shapes").Cells(1, 8).copy
ThisWorkbook.Worksheets("Shapes").Cells(1, 8).PasteSpecial
Paste:=xlPasteValues