Thanks Dave, that was it, the code works perfectly now. Thanks so much! Joyce

"Dave Peterson" wrote:

I would think you'd want:

For Each sht In ThisWorkbook.Worksheets
(instead of .sheets)

But your code worked fine for me.

And if you're running your code from a different workbook, you may want to use
Activeworkbook.worksheets.

Thisworkbook is the workbook with the code--which may not be the one that you're
looking at in excel.

SITCFanTN wrote:

I'm using this code to copy the values in the last row of column D on each
Worksheet in my workbook (there are 10 sheets) and coping the numeric value
onto a worksheet called Summary. The thing is neither the WS titles or the
totals are populating the Summary document. What happens is the text "Sheet
1" populates cell A4, "Sheet 2" populates cell A5 and lastly "Sheet 3"
populates cell A6 of the Summary sheet, what would cause this to happen. I
just can't figure it out. Thanks

Sub SummaryTotals()

Dim c As Integer
Dim sht As Worksheet

c = 4
For Each sht In ThisWorkbook.Sheets
If sht.Name < "Summary" Then
With Sheets("Summary")
.Cells(c, 1).Value = sht.Name
.Cells(c, 2).Value = sht.Cells(Rows.Count, 4).End(xlUp).Value
End With
c = c + 1
End If
Next sht

End Sub

--

Dave Peterson