Thanks again for your help! I will give it a try as soon as I put out a
couple "little fires" around the office. I'll let you know how it works out.

"Jim Cone" wrote:

I modified the code to qualify sheets with the workbook name and
Rows.Count with the sheet name..
It is worth a try...
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware

Sub RoundEmUpMoveEmOut_R1()
Dim N As Long
Dim F As Long
Dim L As Long

F = Sheets("First").Index
L = Sheets("Last").Index

For N = F To L
With ThisWorkbook.Sheets("Data Pull")
ThisWorkbook.Sheets(N).Range("B1:F1").Copy Destination:= _
.Cells(.Rows.Count, 1).End(xlUp)(2, 1)
End With
Next
End Sub
'---------------


"Jim Cone"
wrote in message
I can't really say, it could be something "different" in xl2007.
I don't have that version to test the code on. The code works
for me when I add sheets First, Last and Data Pull to a workbook.
Of course, I adjusted the range width as versions prior to 07 do not
have a column ZQ.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware