Hi Kev 06, I'm sorry to say I could not get this code to work. I'm adding
it to an existing Module so I put a sub name in front of it, that is the only
change I made, would that cause it not to work, I didn't think so? Can you
try it and let me know how you get it to work. Thanks so much.

"kev_06" wrote:


I haven't tried this yet, but if you have any troubles just write back
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

Next


--
kev_06
------------------------------------------------------------------------
kev_06's Profile: http://www.excelforum.com/member.php...o&userid=35046
View this thread: http://www.excelforum.com/showthread...hreadid=556610