Try reversing the two statments.

from
trg.Cells(65536, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count,
rng.Columns.Count).Value = rng.Value
trg.Cells(65536, 1).End(xlUp).Offset(1,1).Resize(rng.Rows.Count,
rng.Columns.Count).Value = sht.name


to
trg.Cells(65536, 1).End(xlUp).Offset(1,1).Resize(rng.Rows.Count,
rng.Columns.Count).Value = sht.name
trg.Cells(65536, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count,
rng.Columns.Count).Value = rng.Value

" wrote:

Hi,

Ive tried the amendments, but, it doesnt quite work - its putting the
sheet names next to the wrong entries. i.e. i have

sheet 1

Col A
ABC112
HGF321

Sheet 2

Col A
POL008
OOL001


What is actually being copied to the Master Sheet is


Col A
ABC112
HGF321
POL008 Sheet1
OOL001 Sheet1
..... Sheet2
..... Sheet2

Hope this makes sense...

cheers

P