Specifying multiple sheets in OpenWorkbook

[TheJay]

Hello there, I have code that I want to run on two specific (named) sheets. I'm not sure what I need to do.

Private Sub Workbook_Open()
    Dim sh          As Worksheet
    For Each sh In Worksheets
[B]        If sh.Name = "Property Numbering", "VO Areas" Then[/B]
            sh.Protect UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
                Range("C13").Select
                Selection.ClearContents
                Range("C8").Select
                Selection.ClearContents
                Range("B2").Select
                Selection.ClearContents
                Range("B2").Select
        Else
            sh.Protect UserInterFaceOnly:=True
        End If
    Next
End Sub

It doesn't like this:

[B]If sh.Name = "Property Numbering", "VO Areas" Then[/B]

How do I correct this please?

Thanks.

 

[Jaafar Tribak]

Private Sub Workbook_Open()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name = "Property Numbering" Then
            sh.Protect UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
            sh.Range("C13,C8,B2").ClearContents
            sh.Range("B2").Value = "'Property Reference Guide (Click Arrow to Start)"
        ElseIf sh.Name = "VO Areas" Then
            sh.Protect UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
            sh.Range("C4").ClearContents
            sh.Range("C4").Value = "'Choose P"
        Else
            sh.Protect UserInterFaceOnly:=True
        End If
    Next
End Sub

 

[TheJay]

Private Sub Workbook_Open()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name = "Property Numbering" Then
            sh.Protect UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
            sh.Range("C13,C8,B2").ClearContents
            sh.Range("B2").Value = "'Property Reference Guide (Click Arrow to Start)"
        ElseIf sh.Name = "VO Areas" Then
            sh.Protect UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
            sh.Range("C4").ClearContents
            sh.Range("C4").Value = "'Choose P"
        Else
            sh.Protect UserInterFaceOnly:=True
        End If
    Next
End Sub

Thank you, seems to be working now I have removed the reference to the merged cell:

        Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name = "Property Numbering" Then
sh.Protect UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
sh.Range("C13,C8").ClearContents
sh.Range("B2").Value = "'Property Reference Guide (Click Arrow to Start)"
ElseIf sh.Name = "VO Areas" Then
sh.Protect UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
sh.Range("C4").ClearContents
sh.Range("C4").Value = "'Choose P"
Else
sh.Protect UserInterFaceOnly:=True
End If
Next
End Sub