Hi All,

I'm sorry this bloody hard to explain. I have a userform with two text fields,
txtstartdate & txtenddate. I would like to use a command button that when
clicked on opens up MS Calendar for selecting a date not clicking on text
field. The first problem is when I select the date it is not displayed in
text field on form and then is not being added to worksheet with other
information in one cell. The displayed date in text field could be change to
a label.caption if easier. I wish to use the calendar as data validation was
becoming a very big problem.

Code to date:

Private Sub Calendar1_Click()
   
   txtStartDate.Value = Format(txtStartDate.Calendar1.Value, "dd-mm-yyyy")

   'UserForm2.ActiveControl.Value = Format(Me.Calendar1.Value, "dd-mm-yyyy")
   UserForm2.ActiveControl.SetFocus
   Unload Me
End Sub

Private Sub txtStartDate_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, _
       ByVal X As Single, ByVal Y As Single)
UserForm2.Show
End Sub

This part of the code for adding the data entered into sheet. Cells (irow, 4)
is where the date is placed. Please don't be woried about the extra spaces in
the code as tere are specific requirements for producing a CSV file to load
into Oracle Financial App.

  Application.ScreenUpdating = False
   Worksheets("DataEntry").Visible = True

   'write userform entries to database
   Cells(irow, 1) = Format(Now, "dd/mmm/yy")
   Cells(irow, 3) = Me.txtInvClaim.Value
   Cells(irow, 4) = Me.txtFirstName.Value & ", " & Me.txtSurName & "       "
& Me.txtStartDate & "  TO  " _
                       & Me.txtEndDate & "  Weekly Rate $ " & Me.
txtInvWeekly & " Hrs " & Me.txtInvQty
   Cells(irow, 5) = Me.txtInvAmt.Value
   Cells(irow, 6) = Worksheets("XXAR_INVOICES_102_DCA_WORKCOMP_").Range("A4")
.Value
   Cells(irow, 7) = Me.txtInvAmt.Value
   Cells(irow, 8) = Me.txtInvEntity.Value
   Cells(irow, 9) = Me.txtInvCostCentre.Value
   Cells(irow, 10) = Me.txtInvAccount.Value
   Cells(irow, 11) = Me.txtInvFund.Value
   Cells(irow, 12) = Me.txtInvProject.Value
   Cells(irow, 13) = Me.txtInvADS.Value

   'clear the data from input form
   Me.txtInvClaim.Value = ""
   Me.txtSurName.Value = ""
   Me.txtFirstName.Value = ""
   Me.txtStartDate.Value = ""
   Me.txtEndDate.Value = ""
   Me.txtInvQty.Value = ""
   Me.txtInvWeekly.Value = ""
   Me.txtInvAmt.Value = ""
   
   'setting focus on Employee Name
   Me.txtInvClaim.SetFocus
   Application.ScreenUpdating = True
   Worksheets("DataEntry").Visible = False

Any help will be greatly appreciated

ViViC