I haven't tried this yet, but if you have any troubles just write bac
and I'll try to get to it.
Dim lngcell As Long
Dim lngsummary As Long
Dim intsheets As Integer
Dim intcounter As Integer
For intsheets = 1 To Sheets.Count
For lngcell = 1 To 65536
If Worksheets(intsheets).Cells(lngcell, 6) = "" Then
Exit For
Else
intcounter = intcounter + 1
End If
Next
For lngsummary = 4 To (Sheets.Count * 2) Step 1
Sheets("Summary").Cells(lngsummary, 3)
Worksheets(intsheets).Cells(intcounter, 6)
Next
Nex
--
kev_0
-----------------------------------------------------------------------
kev_06's Profile:
http://www.excelforum.com/member.php...fo&userid=3504
View this thread:
http://www.excelforum.com/showthread.php?threadid=55661