paste value
 

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

paste value
 

It works for me. Do you have just 2 lines of code? Your post shows 3
lines. HTH Otto
wrote in message
...
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

paste value
 

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

paste value
 

Does

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

make a difference

paste value
 

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

paste value
 

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