UserForm as a monthly report

[Big Lar]

This UserForm displays values from a large worksheet. Users select a date they wish to view with the combobox. The displayed values are the totals for that date.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Suggestions on how to provide weekly or monthly totals on this UserForm.<o></o>

<o:p></o:p>
Private Sub ComboBox1_Change()<o:p></o:p>
<o:p></o:p>
TextBox1.Value = (Format(Range("T" & ComboBox1.ListIndex + 2) + Range("U" & ComboBox1.ListIndex + 2) * 0.25, "$ #.00"))<o:p></o:p>
TextBox2.Value = (Format(Range("V" & ComboBox1.ListIndex + 2) + Range("W" & ComboBox1.ListIndex + 2) * 0.25, "$ #.00"))<o:p></o:p>
TextBox3.Value = (Format(Range("X" & ComboBox1.ListIndex + 2) + Range("Y" & ComboBox1.ListIndex + 2) * 0.25, "$ #.00"))<o:p></o:p>
TextBox4.Value = (Format(Range("T" & ComboBox1.ListIndex + 2) + Range("U" & ComboBox1.ListIndex + 2) * 0.25, "$ #.00"))<o:p></o:p>
TextBox5.Value = (Format(Range("AE" & ComboBox1.ListIndex + 2), "$ #.00"))<o:p></o:p>
TextBox6.Value = (Format(Range("AF" & ComboBox1.ListIndex + 2), "$ #.00"))<o:p></o:p>
TextBox7.Value = (Format(Range("AD" & ComboBox1.ListIndex + 2), "$ #.00"))<o:p></o:p>
TextBox8.Value = (Format(Range("AG" & ComboBox1.ListIndex + 2), "$ #.00"))<o:p></o:p>
TextBox9.Value = (Format(Range("AH2"), "$ #.00"))<o:p></o:p>
<o:p></o:p>
End Sub<o:p></o:p>