OK, I have gotten this far...
Private Sub Workbook_Open()
Dim cellvalue As Variant
cellvalue = Application.InputBox _
("Enter the Todays Date (dd/mm/yyyy)")
Super happy that it opens when the workbook opens and asks the right question.
Now for the fun part. on Sheet3 I have a two field list.
The list is named WeightList and has two columns (Date and Weight)
Now. The input box must get the date and populate the next line in the WeightList then it must ask for the weight and put that in the second field.
Then close for now.
Thanks for any help.