Here's the code:

Option Explicit
Private Sub Workbook_Open()

Dim i As Integer, C As Range
With Workbooks("MasterOrder.xls").Worksheets("Master Order")
.Unprotect Password:="SGB"
.Cells.Locked = False
i = .Range("I10").Value
.Range("I10").Value = i + 1
For Each C In .Range("A1:N61")
With C
If Not C.Interior.ColorIndex = 34 Then
C.Locked = True
End If
End With
Next
.Protect Password:="SGB"
.EnableSelection = xlUnlockedCells
End With
End Sub

Q1: why that error message please?
Q2: can I improve the code please?

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.708 / Virus Database: 464 - Release Date: 18/06/2004