Hola, bienvenido a este forum.
No sé qué nivel de conocimiento tienen de programar en VBA pero el error que mensiona (y muestras) en la imagen es que no todos los datos parasados como parámetro han sido respetado of la refererencia al la hoja de Excel no se reconoce.
Sheets2 NO existe en Word y no veo que no has hecho ninguna referencia a Excel.
Puedes intenater modificar

Find = Sheet2.Range ...
Remplazar = Sheet ...
Find = Thisworkbook.Sheet2.Range ...
Remplazar = Thisworkbook.Sheet ...
A ver si te ayuda