Hi All

I wonder if you have ever solved a Racing Pigeon problem??

I have the following routine that helps work out averages for Racing Pigeons
it converts the Flying time in seconds & multiplys by 60 it also converts
the miles and yards flown and multiplys by 3600 it then divides the
distance/time as below and gives a velocity in yards per minute.

'Averages

Private Sub Add14_Click()

Tb59.Value = Tb25.Value
Tb60.Value = Tb17.Value
Tb61.Value = Tb18.Value
Tb62.Value = Tb14.Value
Tb63.Value = Tb15.Value
Tb64.Value = Tb16.Value

Tb66.Value = Val(Tb60.Value * 1760) + Val(Tb61.Value)
Tb67.Value = Val(Tb66.Value * 3600)
Tb68.Value = Val(Tb62.Value * 60) + Val(Tb63.Value)
Tb69.Value = Val(Tb68.Value * 60) + Val(Tb64.Value)
Tb70.Value = Val(Tb69.Value * 60)
Tb65.Value = Val(Tb67.Value) / Val(Tb70.Value)

If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
ActiveSheet.Range("B53") = UserForm1.Tb67.Value
ActiveSheet.Range("C53") = UserForm1.Tb70.Value
ActiveSheet.Range("D53") = UserForm1.Tb65.Value

End If


End Sub

What I need to happen as the racing season continues -- I need to add to the
value in the cells on the sheet the new values that are shown in the
respective Text Boxes. Hope I've made myself clear - and you can help a
struggling Racing Pigeon Club Secretary.

--
Many thanks

hazel