bezuege per makro aendern

ich oeffne eine datei als jahr, z.b. 2002.xls.
diese datei enthaelt bezuege zum vorjahr, also 2001.xls.
beim jahreswechsel wird nun 2002.xls als 2003.xls gespeichert, dementsprechend sollen sich die bezuege auf 2002.xls aendern.
bei folgendem makro erhalte ich eine fehlermeldung.

es liegt wahrscheinlich an vj-1 bzw. jahr-1, aber mir faellt nichts besseres ein.

danke fuer hilfe von thomas