Hi Damien

Try replacing.......

Set ur = ActiveSheet.UsedRange
For Each c In Range("A2:A" & ur.Rows.Count)

with

Set ur = Range(Range("A2"), _
Range("A" & Rows.Count).End(xlUp))
For Each c In ur


--
XL2002
Regards

William



"Damien McBain" wrote in message
...
| Hi Y'all.
|
| One of my subs clears the contents of a worksheet then pastes in new data.
I
| then concatenate the text in columns A & B in column H by going:
| --------------
| Set ur = ActiveSheet.UsedRange
|
| For Each c In Range("A2:A" & ur.Rows.Count)
| Cells(c.Row, 8) = Cells(c.Row, 1) & Cells(c.Row, 2)
| Next c
| --------------
|
| The trouble is that there are 135 rows of data (the pasted data occupies
| A1:G135), but ActiveSheet.UsedRange.Rows.Count only returns 134. Any
ideas?
| Sure I can add 1 but I'd like to know if I'm mis-using this property.
|
| cheers
|
| Damo
|
|