Variable in anderes Makro übergeben

Sub test()
Dim WB, WRH, WRG, FRH, FRG, WLP, WSAL As Worksheet
Set WB = Workbooks(ThisWorkbook.Name).Sheets("Räder Sommer")
For i = 1 to 200
'Selektion für Seriendruck formatieren
daten_format (i), (WB)
NExt i
End Sub

Sub daten_format(ze As Long, ws As Worksheet)
MsgBox (ze)
MsgBox (ws.Cells(i, 35).value)
End Sub

Leider kann ich die Variablen vom ersten in den zweiten Code nicht übergeben,
Excel meldet dabei:
"Objekt unterstützt Eigenschaft oder Methode nicht"
Was muss ich tun damit die Variablen übergeben werden.
Danke im Voraus
Steffen Schmerler