Executing code to clear data in different cells and input words according to rules specified

[TheJay]

This is based on another thread, the answer has been given but the code doesn't execute as expected: Specifying multiple sheets in OpenWorkbook

I have a workbook that contains multiple sheets. I want Workbook_Open to execute code that clears cells and inserts specific words into a specific sheet and cell according to the rules specified.

I found that all the code was being executed on the second specified sheet and nothing on the first. So, it cleared data from a list on the VO Areas based on

Range("C13").Select
Selection.ClearContents
Range("C8").Select
Selection.ClearContents
Range("B2").Select
Selection.ClearContents

Then added "Property Reference Guide (Click Arrow to Start)" to cell B2 based on:

Range("B2").Value = "'Property Reference Guide (Click Arrow to Start)"
Range("B2").Select

It then executed the expected code:

ElseIf sh.Name = "VO Areas" Then
sh.Protect UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
sh.Range("C4").ClearContents
Range("C4").Value = "'Choose P"
Range("C4").Select

Overall code:

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
Range("C13").Select
Selection.ClearContents
Range("C8").Select
Selection.ClearContents
Range("B2").Select
Selection.ClearContents
Range("B2").Value = "'Property Reference Guide (Click Arrow to Start)"
Range("B2").Select
ElseIf sh.Name = "VO Areas" Then
sh.Protect UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
sh.Range("C4").ClearContents
Range("C4").Value = "'Choose P"
Range("C4").Select
Else
sh.Protect UserInterFaceOnly:=True
End If
Next
End Sub

Could someone please tell me why this is happening and how to fix it?

 

[Fluff]

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.