Hello, help needed.

I have a sub. running based on cell value in B5. Efter cell value is entered and enter is pressed the workbook opens a mail and sends information about cell value in A2 and A5. Also depending on value in B5(1-11) it sends the corresponding value in A19-A29.

What I now want it to do is to store the values in sheet2. For every time the value in B5 is altered a line consisting of
Date; A2; corresponding A19-A29 and A5 shall be created in sheet2. With the most recent on top.

Féidir?


Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Ar Lean Earráid Aghaidh
'If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("B5"), Target)
Mura bhfuil xRg ar bith ansin Scoir Fo
If IsNumeric(Target.Value) And Target.Value = 1 Then
Call Mail_small_Text_Outlook1
Deireadh Má
If IsNumeric(Target.Value) And Target.Value = 2 Then
Call Mail_small_Text_Outlook2
Deireadh Má
If IsNumeric(Target.Value) And Target.Value = 3 Then
Call Mail_small_Text_Outlook3
Deireadh Má
If IsNumeric(Target.Value) And Target.Value = 4 Then
Call Mail_small_Text_Outlook4
Deireadh Má
If IsNumeric(Target.Value) And Target.Value = 5 Then
Call Mail_small_Text_Outlook5
Deireadh Má
If IsNumeric(Target.Value) And Target.Value = 6 Then
Call Mail_small_Text_Outlook6
Deireadh Má
If IsNumeric(Target.Value) And Target.Value = 7 Then
Call Mail_small_Text_Outlook7
Deireadh Má
If IsNumeric(Target.Value) And Target.Value = 8 Then
Call Mail_small_Text_Outlook8
Deireadh Má
If IsNumeric(Target.Value) And Target.Value = 9 Then
Call Mail_small_Text_Outlook9
Deireadh Má
If IsNumeric(Target.Value) And Target.Value = 10 Then
Call Mail_small_Text_Outlook10
Deireadh Má
If IsNumeric(Target.Value) And Target.Value = 11 Then
Call Mail_small_Text_Outlook11
Deireadh Má
Fo Deireadh



Thanks Jerry