paste value

[carlos_ray86]

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

 

[Otto Moehrbach]

It works for me. Do you have just 2 lines of code? Your post shows 3
lines. HTH Otto

 

[Mike H]

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

 

[kwillis74]

Does

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

make a difference

 

[RyanH]

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.

 

[Dave Peterson]

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.