Formel aus Tabelle in Makro übernehmen

ich hab mal eine kleine frage,
ich habe eine Formel in meiner Tabelle verwendet
z.B SUMMEWENN(Tabelle1!$C$1:$C$1002;A1;Tabelle1!$B$1:$B$1002)
diese funktioniert auch wirklich gut, aber will diese in einer eigenen Funktion aufrufen und habe mir die Funktion:

Function berechnen(rng As Range) As Double
Dim a As Variant
a = Application.WorksheetFunction.SumIf(Range("Tabelle1!$C$1:$C$1002"), rng, Range("Tabelle1!$B$1:$B$1002"))
berechnen = a
End Function

geschrieben.
Da ich nicht gerade so viel Ahnung von VBA habe hat Excel mir natürlich zurückegeben, daß die Funktion nicht gültig ist.

Gibt es eine Möglichkeit wie ich doch an mein Ergebnis komme?

Vielen Dank

gruss Kurt