Hi Tom
,
ändere die Zeile
Sheets(sheetsvar01).Range("B2").Paste 'oder wenn möglich noch einfacher/schnellerin
Sheets(sheetsvar01).Range("B2").PasteSpecial 'oder wenn möglich noch einfacher/schneller
Dann sollte es funktionieren.
MfG,
Oliver
[sup]Jeder macht was er will, keiner macht was er soll, aber alle machen mit.[/sup]