Hi,
I'd like to write a macro that does the following:

' For each worksheet in the workbook, do the following:
' Get the number of rows
' From A1 to the Last row, find the cells with the word "TOTAL" in
them.
' Print the row that the cell belongs to on the active sheet, and
continue doing so for all rows that you find.

So far, I have the following, but it doesn't work
Sub MySub()
Dim ws As Worksheet
Dim lCount As Long
Dim rFoundCell As Range
Dim MyLastCell As Range
For Each ws In ActiveWorkbook.Worksheets
MsgBox ws.Name
Set MyLastCell = LastCell(ws)
Set rFoundCell = Range("A1")
For lCount = 1 To MyLastCell.Row
Set rFoundCell = Columns(1).Find(What:="TOTAL",
After:=rFoundCell, _
LookIn:=xlValues, LookAt:=xlPart,
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True)
Worksheets(ws).rFoundCell.Copy
ActiveSheet.Paste
Destination:=Worksheets("Sheet1").Range("D1:D5")
' MsgBox rFoundCell.Row


Next lCount
Next
End Sub