Hallo Roger,
dann schreibe
Workbooks(Range("A2").Text).Activatein den VBA-Code, dann sollte es gehen.
PS: Als ich gestern geantwortet habe lag ich bei der Akkupunktur auf der Liege. Eventuell ist mir deshalb die Eigenschaft ".Text" entfallen.
MfG,
Oliver