HTSCF I don't understand why U want the user to select Regiment and Battalion and then enter a Soldier Number to enquire about? Is the regiment and battalion always known? Why not just enter the soldier number and then report the regiment and battalion if known? I've been unable to resolve the 1900 date problem... when the date is retrieved, even though entered as for example 04-01-1900 (d-m-y), the 1900 dates are 1 day off when returned ie. 03-01-1900 is returned re. the leap year. This code is better than last, but still needs to be adjusted to accommodate the leap year.
If Left(CDate(Sheets(Sht.Name).Cells(Cnt2, Cnt + 1)), 4) <> 1900 ThenfrmEnlistment.txtEstEnlistmentDateResult.Text = Format(Sheets(Sht.Name).Cells(Cnt2, Cnt + 1), "dd/mm/yyyy")
Else
frmEnlistment.txtEstEnlistmentDateResult.Text = CStr(Sheets(Sht.Name).Cells(Cnt2, Cnt + 1))
End If
Dave