HI,
I have this code in my workbook and it works fine but maybe I am putting it in the wrong location as it doesn't work when I open it. I have to hit "run" to get it to work. I am under the assumption that this should auto run as is? Its located in Modules? What am I doing wrong????

Thanks

Private Sub Workbook_Open()		
Dim i As Long		
                With Sheets("Sheet1")		
i = 2:      Do Until .Range("B" & i) = "End of Project"		
If .Range("C" & i) < 1 And .Range("D" & i) <> "" Then _		
        .Range("E" & i) = Range("A1")		
            i = i + 1:  Loop		
                End With		
 End Sub