Macro: Loop through sheets, copy and paste as values

[larinda4]

I have this code and I am wanting to loop through all the sheets in my workbook. I want it to unhide all rows/columns, delete all comments and copy/paste the entire sheet as values, then proceed to the next sheet.

Sub xCheck()

   Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.Columns.EntireColumn.Hidden = False
        ws.Rows.EntireRow.Hidden = False
        ws.Cells.ClearComments
        ws.Cells.PasteSpecial Paste:=xlPasteValues
        
    Next ws
End Sub

I'm receiving an error for "ws.Cells.PasteSpecial". Any help would be appreciated.

 

[Georgiboy]

You have not copied anything before you paste, must be missing: ws.Cells.Copy

 

[larinda4]

You have not copied anything before you paste

I tried that as well. Here's the code I tried using:

Sub xCheck()

   Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.Columns.EntireColumn.Hidden = False
        ws.Rows.EntireRow.Hidden = False
        ws.Cells.ClearComments
        ws.Cells.Select
        ws.Cells.PasteSpecial Paste:=xlPasteValues
        
    Next ws
End Sub

I was also receiving an error for "ws.Cells.Select"

 

[larinda4]

I'm face palming so hard right now. I figured it out.

Here's the code:

Sub xCheck()

   Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.Columns.EntireColumn.Hidden = False
        ws.Rows.EntireRow.Hidden = False
        ws.Cells.ClearComments
        ws.Cells.Copy
        ws.Cells.PasteSpecial Paste:=xlPasteValues
        
    Next ws
End Sub

 

[Georgiboy]

That's the one

 

[larinda4]

That's the one

Thanks Georgiboy A little push in the right direction.

 

[smozgur]

The marked solution post has been switched to the initial answer post - #2.