Predict Date of Enlistment

[Dave]

HTSCF allowing users to make an informed guestimate of their own, as U outlined, seems like it would provide the end user with the most benefit. You can trial this to fix your date format concerns. HTH. Dave

If Right(Sheets(Sht.Name).Cells(Cnt2, Cnt + 1), 4) <= 1900 Then
frmEnlistment.txtEnlistmentDate.Text = Format(Sheets(Sht.Name).Cells(Cnt2, Cnt + 1), "dd/mm/yyyy")
Else
frmEnlistment.txtEnlistmentDate.Text = CStr(Sheets(Sht.Name).Cells(Cnt2, Cnt + 1))
End If