Sub to freeze all sheets & delete all comments

[Max]

Hunting for a sub to freeze all sheets (copy entire sheet>paste special as
values) & delete all comments (in all sheets) in a book. Thanks.

 

[Joel]

For Each sht In Sheets
sht.Cells.Copy
sht.Cells.PasteSpecial past:=xlPasteValues

Next sht

 

[Charabeuh]

Something like that :?

--------------------------------------------------------------
Sub PastValDelComments()
Dim dlgAnswer As Boolean, S As String
Dim OldName As String, NewName As String
Dim xWs As Worksheet
dlgAnswer = False

' SAVE workbook with another name or path
S = "SECURITY : save your worbook with another name, please" & vbCrLf
S = S & vbCrLf & " ==> with another Name or Path <=="
OldName = ThisWorkbook.Path & "\" & ThisWorkbook.Name

While Not dlgAnswer Or (OldName = NewName)
MsgBox S
dlgAnswer = Application.Dialogs(xlDialogSaveAs).Show
NewName = ThisWorkbook.Path & "\" & ThisWorkbook.Name
Wend

For Each xWs In Worksheets
xWs.Cells.Copy
xWs.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
xWs.Cells.ClearComments
Next xWs

ThisWorkbook.Save

End Sub
--------------------------------------------------------------

 

[Max]

Many thanks, Charabeuh!
That works fine.

 

[Max]

Thanks, Joel. I got what I was looking for from Charabeuh's response.