VBA to clear all sheets except one

[omairhe]

Hey all.

I have a code that clear every sheet of my workbook. However, in recent times I added a new sheet which I don't want to clear named "Changelog"

Hence, I would like the following code to clear all sheets in my workbook except for sheet named "Changelog"

Sub StartProcess()
Dim actWB As Workbook
Dim sh As Worksheet
Set actWB = Workbooks("Current Stock & Recent Orders")
For Each sh In actWB.Sheets
    sh.Cells.Clear
Next sh
Call CopyPaste
End Sub

Thank you ,

Will appreciate.

 

[steve the fish]

Something like:

Sub StartProcess()

Dim actWB As Workbook
Dim sh As Worksheet

Set actWB = Workbooks("Current Stock & Recent Orders")
For Each sh In actWB.Worksheets
    If LCase(sh.Name) <> LCase("Changelog") Then
        sh.Cells.Clear
    End If
Next sh
Call CopyPaste

End Sub