Little macro help...

[omairhe]

Hello everyone,

In the following macro I would like to add a script instead of "'do nothing" for the Sheets HSheet and SS. How do I do this please? For instance I want to clear contents in range C3 to G3 of those two sheets.

    For i = 1 To ans2
        Select Case Sheets(i).Name
            Case "HSheet", "SS"
                'do nothing
            Case Else
                Sheets(i).Unprotect "mypassword"
        End Select
    Next

Thanks and much appreciation.

 

[maabadi]

add this after Case "HSheet", "SS" :

                Sheets("HSheet").Range("C3:G3").ClearContents
                Sheets("SS").Range("C3:G3").ClearContents

 

[omairhe]

add this after Case "HSheet", "SS" :

ActiveSheet.Range("C3:G3").ClearContents

And if I want to clear contents only from Sheet SS and with HSheet do nothing?

I am guessing =

Worksheets("SS").Range("C3:G3").ClearContents

 

[maabadi]

Yes. You 're right. I modified it.

 

[omairhe]

Yes. You 're right. I modified it.

Thanks for the help.