Worksheet als Argument übergeben?

ich habe grad das Problem, dass ich ein Worksheet als Argument an ein anderes Sub übergeben möchte. Leider kriege ich es hier überhaupt nicht gebacken.

Folgender Code funktioniert:

Warum geht dieser Code nicht:

~begin~
Blattname.ChartObjects(1).SeriesCollection(1).Values = Blattname.Range("B99:B111")
~end~

?????

Die Übergabe habe ich so geregelt:

~begin~
Set wks = Worksheets(Zaehler2)
Call Diagramm(wks)

Sub Diagramm(ByVal Blattname As Worksheet)
...
~end~

Wenn jemand hier Abhilfe weiss wäre ich sehr froh!

Gruss
Timo