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