I'm trying to copy a cell and paste it back in the same cell just as
values...is this possible. I'm doing the following code:

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