I am getting a run time error 9 about the following peice of code:

Finalrow = Sheets("Word").Range("A65536").End(xlUp).Row

Does anyone have any suggestions about how I can fix or get round this.

Thanks.