The value of the cell is text, not an integer so this code is not copying the
text of the cell to paste into the other workbook

"Dave" wrote:

Oops - forgot to test for a blank cell - sorry. Included below.

Windows("Extract.xls").Activate
Static A As Integer
If A = 0 Then A = 4
If Cells(A, 1) = "" Then Exit Sub
Cells(A, 1).Select
A = A + 1
Selection.Copy
Windows("PascoTOC.xls").Activate
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Regards - Dave.