parameterübergabe an subroutine

Sub übergebe ?
beispiel:

Sub test()
test1( *zelle a1* )
End Sub



Sub test1(a as range)
if a=1 then [b1]=1
End Sub


wie übergebe ich bei aufruf von test1 die zelle a1 als parameter ?

danke !

gruss,

marcus