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
Bookmarks