This just returns the daynumber, not the formati wish. Why oh Why. Please
help
With ActiveCell
.Value = "*"
.Offset(0, 1).Value = DTPicker1
ActiveCell.NumberFormat = "dd-mm-yyyy"
.Offset(0, 3).Value = Val(txtMember)
End With