Copy Paste to Loop Through Sheets in Workbook

Hola Gurus,

I cannot figure out why this simple copy paste doesn't work... any advice?



Sub CopyPaste()

Dim sh As Worksheet

Application.ScreenUpdating = False

For Each sh In ThisWorkbook.Worksheets

Columns("O:O").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Next 'sh

End Sub


Thank you for any help!

Hi,
What exactly does not work? What line cause error?
Worked fine in my workbook.

Worked great thanks!