Also Dim first as Long.

Dim first, last As Long
Should be
Dim first As Long, last As Long

Otherwise first is Dimmed as Variant and only last is Dimmed as Long.

Also, any chance that first could = 1?
Then first = first - 1 would be in error.

Mike F

"Mike Fogleman" wrote in message
...
Put a space between first and &.

Range("A" & first &":H" & last).Copy

Mike F
"diepvic" wrote in message
...
Hi,

My below code has a compile error : Expected: list seperator or )
Pls help solve it.


Sub Consolidation()


'Copy to the next line in the target file'

Dim i As Integer, wb As Workbook
Dim first, last As Long

'Open all files in the folder'
With Application.FileSearch
.NewSearch
.LookIn = "N:\Tax\FILE1"
.SearchSubFolders = False
.Filename = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count

'Open each workbook
Set wb = Workbooks.Open(Filename:=.FoundFiles(i))

'Identify 1st row & last row of the target area'
first = ActiveSheet.Cells(Rows.Count, "C").End(xlDown).Row
first = first - 1
last = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row
Range("A" & first&":H" & last).Copy ======
error in here

'On to the next workbook
Next i
End With

End Sub