In a standard Module put:

Sub SumByEmployee()
MyPick = InputBox("What Employee Do you Want?")
For Each c In Range("D2:D36")
If c = MyPick Then mTotal = mTotal + c.Offset(, -1)
Next c
Range("C40") = mTotal
End Sub

HTH

"Gary Paris" wrote in message
...
I looked at the AutoFilter command, and was able to display the data for
each employee.

On my sheet for example, the dollar amounts are in C2 thru C36, but the
Grand Total for each employee is in C40. How can I programatically get
the
total for the employee in question?

Why can't I loop through the data examining Row "D" for the persons name?
I
know this is more work, but I would like to learn more.

Can you or anyone provide some code so I can loop through the data,
looking
for a person's name and then generating a total amount? This is what I
would like. Please help.

Thanks,

Gary

"Jim May" wrote in message
news:f2Zyd.9965$jn.4327@lakeread06...
I'd take a look at (and consider) Data, Filter, AutoFilter
It's pretty versatile. Once assigned, just click (on the Down Arrow)
of
Column header Employee.
Plus I often Insert 3 blank rows at the top of the screen, with my
datacolumnsdescriptions
in say Row 4, data starting in row5 ... 1000; but back to row, say in C2
enter:
=subtotal(9,C5:C1000)... Lastly, I go to cell A5 and do (at the menu)
Windows Freeze Panes.
HTH
Jim May




"Gary Paris" wrote in message
...
I have an expense sheet. The data includes: Item Description, Date,
Amount,
Employee

I would like to calculate totals for each employee separately.

This is how the data looks:

Widget 1, 12/23/04, 43.45, Joe
Widget 2, 12,24/04, 21.55, Edward
Widget 3, 12/01/04, 15.55, Joe

How can I do this automatically (each time I make a change).

Sometimes there could be 10 entries, 50 entries, 20 entries, etc... I
would
like a way to figure out the totals when the sheet is open or becomes
active. It seems using the SUMIF command, I would have to plug in the
ranges.

I would like to loop through the records and when there is no entry in
the
"employee" field, I'm done.