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