Thanks for the suggestion - unfortunately I have tried this alternative and
it gives the same result.

I have checked in the file and I definitely have a sheet called "Word" and
it is spelt the same and with no spaces.




"Smallweed" wrote:

Strange - don't see why that doesn't work.

An alternative (as long as column A is full of data from A1 - but could you
adjust the range down a bit if you like):

Finalrow = Sheets("Word").Range("A1").CurrentRegion.Rows.Coun t