Runtime Error 9 Subscript out of Range

[klyhthwy]

Private Sub EditOpen()
Dim book As Workbook
Dim sheet As Worksheet

For Each book In Workbooks
If Not book.ReadOnly Then

Set sheet = book.Worksheets("Operating")

sheet.Range("$K$13:$K$18,$K$21:$K$26,$K$29:$K$34,$K$37:$K$42,$K$45:$K$50,$K$53:$K$58,$K$61:$K$66,$K$69:$K$74,$K$77:$K$82,$K$85:$K$90,$K$93:$K$98,$K$101:$K$106").Locked = False

Set sheet = Nothing
End If
Next
End Sub

When I run this code I get a run-time error 9: "Subscript out of Range". Can anyone tell me what my problem is?

 

[mikerickson]

I would guess that your Personal Macro Workbook might not have a worksheet named Operating.

 

[klyhthwy]

I have checked this over and over. It does.

If I use a For loop as follows

For Each sheet In book.Worksheets

If sheet.Name = "Operating" Then
sheet...
End If
Next

I have no problem. It is only when I use Set sheet = ...
That is doesn't work.

 

[boblarson]

It is only when I use Set sheet = ...
That is doesn't work.

You don't need to set sheet to nothing until the very end (and it isn't even necessary then).