I need your assistance with a problem I have with a listbox.
I have a sheet containing a range "Reporting_Periods" which has col(1) = a
number 1 to 15 (Period), and Col(2) a StartDate and col(3) an EndDate.
I have a userform with one listbox, and 3 textboxes - Period, Startdate,
Enddate. The users may change the dates in an existing Period, and if the
click in the blank line under the last populated row in the listbox, they
can create a new Period.
The listbox is populated at Userform_Initialize which sets the row source
and the bound column (Period).
Everything works OK for editing existing entries and creating the first new
Period.
When the user tries to create another new Period by clicking on the blank
line under the new period just entered an error 1004 is raised indicating
that the select method failed. Here is the code I use to update the sheet:

Range("Project_Reporting_Dates_Top").Offset(ListBo x1.ListIndex, 0).Select
Selection = intPeriod
Range("Project_Reporting_Dates_Top").Offset(ListBo x1.ListIndex, 1).Select
Selection = dteSDate
Range("Project_Reporting_Dates_Top").Offset(ListBo x1.ListIndex, 2).Select
Selection = dteEdate
Selection.Value = txtEdate.Value
Call Update_ProjectInformation

At form_Initalize event I activate and unprotect the sheet. I protect the
sheet on Query_close event.

However, it seems as if something is re-protecting the sheet and it is not
in my code. If I run Debug when the error occurs and enter a sheet.unprotect
above the error line then move the run pointer to the sheet.unprotect, the
code executes.

Does anyone have an idea as to what may be causing this problem? Or, is
there a better way to update the form?

Thank you for your advice.

Rick