This works:

Sub pastespecail()
With ThisWorkbook.Worksheets("Shapes").Cells(1, 8)
.Copy
.pastespecial Paste:=xlPasteValues
End With
End Sub

--
Gary''s Student - gsnu2007k


" wrote:

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