Userform Textbox with date adjusted by worksheet cell

Hi
I have an Excel 2007 workbook where I have created a Userform.  On that Userform the clerk will select a date from a Calendar Control.  That selected date then populates textbox tbDateEnd with the following

(Note-This code works)

Private Sub Calendar1_Click()
    ActiveCell.NumberFormat = "m/d/yyyy"
    tbDateEnding.Value = Calendar1.Value
    Sheets("History Detail").Range("DateEndingInput").Value = Calendar1.Value
    
End Sub

Select allOpen in new window

This following is what I can't get to work

I have a second textbox where I want the deliver date to be calculated and recorded.  The deliver date lead time is a named range on worksheet "Company Data"  That name is "LeadTimeDaysAdjustment" and is a formula that returns a number (example say 7).

What I am trying to do is when the clerk clicks the calendar control it populates that tbDateEnding (which it currently does) and then populates the "tbDeliverDate" with the tbDateEnding + the LeadTimeDaysAdjustment

Here is the code I used for that:

Private Sub tbDateEnding_Change()
    DaysAdjust.Value = Worksheets("Company Data").Range("LeadTimeDaysAdjustment").Value
    ActiveCell.NumberFormat = "m/d/yyyy"
    
    tbDateEnding.Value = (tbDateEnding.Value + DaysAdjust.Value)
    
End Sub

Select allOpen in new window

It does not work.