I have a userform which has a listbox, a textbox and a commandbutton
Based on the textbox the items in the listbox are narrowed down.
While the required item on the listbox is selected the commandbutton is clicked which is supposed to populate two cells. The problem is that as soon as one of the cells is populated the sub is aborted. If I change the order of the population again after the first population the routine is aborted.
Here is the code for the commandbutton. The code aborts at line 6. If I comment it out the program aborts at line 13
Private Sub CommandButton1_Click()
Dim prj As Worksheet
Dim rw As Long
Dim cel As Range
If Me.ListBox1.ListCount = 0 Then Exit Sub
' ActiveCell.Value = Me.ListBox1.List(Me.ListBox1.ListIndex) '.Selected
Set prj = Workbooks("Timesheet control.xls").Sheets("Projects")
rw = 0
For Each cel In prj.Range("D:D")
If cel = Me.ListBox1 Then rw = cel.Row: Exit For
ActiveCell.Offset(, -1) = prj.Cells(rw, "C")
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False