Maybe you're not running the procedure correctly.

ps.

with thisworkbook.worksheets("shapes").cells(1,8)
.value = .value
end with

would work as well.

But that doesn't address why your code isn't running.

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

--

Dave Peterson