I think you will be disappointed in the results. Instead, modify it like
this

For Each sh In Worksheets
sh.Activate
Range("a19:d23").Select
Selection.Copy
Range("a19:d23").Select
Selection.PasteSpecial Paste:=xlPasteValues
Next

--
Regards,
Tom Ogilvy


"dogpigfish" wrote in message
...
Thanks, but I ended up using this. Thanks for pointing me in the right
direction. i was having trouble with the paste values function.

For Each sh In Worksheets
Range("a19:d23").Select
Selection.Copy
Range("a19:d23").Select
Selection.PasteSpecial Paste:=xlPasteValues

Next

End Sub

"Tom Ogilvy" wrote:

for each sh in Worksheets
sh.UsedRange.Cells.Value = sh.UsedRange.Cells.Value
Next

Merged cells may be problematic (aren't they always) - I haven't tested
it
with those.
--
Regards,
Tom Ogilvy


"dogpigfish" wrote in message
...
I am bouncing around code for this and overcomplicating it. What code
can
I
use to paste all values on every sheet for every cell.