VBA select case

[kelly mort]

Hello All,
I have this code for clearing data from certain range of some sheets in my workbook. What I want the case statement to do is to pick sheets that I want to exclude from the clearing.

Sub ClearRange()
    Dim Wsheet As Worksheet
    For Each Wsheet In Worksheets
    Select Case Wsheet.CodeName
    Case "Sheet2", "Sheet4", "Sheet6"
    Case Else
        Range(Cells(2, 1), Cells(200, 10)).Select
        Selection.ClearContents
    End Select
    Next
End Sub

The sheets listed above are those that the
code is rather clearing data from. I wish I could list those that are to be excluded instead because they are few. I need the bigger brains to help fix this challenge for me.
Thanks

 

[steve the fish]

Re: VBA select case challenge

This will exclude Sheet2, Sheet4 and Sheet6 from the clear contents, other worksheets will be cleared:

Dim Wsheet As Worksheet
For Each Wsheet In Worksheets
    Select Case Wsheet.CodeName
        Case "Sheet2", "Sheet4", "Sheet6"
        Case Else
            Range(Wsheet.Cells(2, 1), Wsheet.Cells(200, 10)).ClearContents
    End Select
Next

 

[RoryA]

Re: VBA select case challenge

What I want the case statement to do is to pick sheets that I want to exclude from the clearing.

That is what the code you posted does. However, you have not qualified your ranges with a worksheet - your code should read:

Sub ClearRange()
    Dim Wsheet As Worksheet
    For Each Wsheet In Worksheets
    Select Case Wsheet.CodeName
    Case "Sheet2", "Sheet4", "Sheet6"
    Case Else
        WSheet.Range(WSheet.Cells(2, 1), WSheet.Cells(200, 10)).ClearContents
    End Select
    Next
End Sub

 

[kelly mort]

Thanks Steve the fish and RoryA .
I will run the codes and let you know what happens.
Thanks again.
Kelly