Fehler "ByRef unverträglich" bei Übergabe

ich habe einen Fehler, den ich nicht verstehe:

Ich habe zwei private subs. Die erste soll die zweite Sub aufrufen und 2 Werte übergeben, die in der Sub 1 lokal definiert wurden.

private sub 1

dim dateiname as string
dim datei as workbook
...
Call sub2(dateiname, datei)'
...
Dann sollte es weitergehen in der Sub2:

Sub2 (dateiname as string, datei as workbook)
...

Es kommt aber der Fehler "Argumenttyp byRef unverträglich".

Wer weiss warum und wie ich das beheben kann?

Vielen herzlichen Dank im Voraus!