Hi,

It should work but it's a but there's no need to copy and paste to do it


Sheets("Shapes").Cells(1, 8) = Sheets("Shapes").Cells(1, 8)


Mike

" 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