I would suggest a macro linked to the worksheet_change event.


For N = 1 to NumberofColumns
For M = 1 to NumberOFRows
If Cells(M,N) <"Lunch" and Cells(M,N) <"Dinner" then
Sheets(2).cells(65536,1).end(xlup).offset(1,0) = Cells(M,N)
End If
Next M
Next N

Define NumberofColumns and NumberOFRows as appropriate.

Hope this helps.


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=550228