Problem Funktion aus AddIn aufzurufen

ich habe foldenden code in AddIn test.xla gespeichert.

Public Function Test(SheetName As String) As String
Dim WS As Worksheet
Set WS = ThisWorkbook.Worksheets(SheetName)
Test = CStr(WS.Cells(2, 2).Value)
End Function

Beim Aufruf der Funktion aus einem anderem Worksheet (test.xla habe ich über Add-InManager eingebunden), erhalte ich immer nur die Fehlermeldung #WERT!.

Ersetze ich in obigem code Set WS= ThisWorkbook.Worksheets(SheetName) durch Set WS=Worksheets(SheetName), funktioniert das ganze.

Hat jemand von euch eine Ahnung, an was das liegt und gibt es noch mehrere Ausnahmen, die es bei der Erstellung von AddIns beachten muss? Wäre über jeden Hinweis, bzw. Quellen äusserst dankbar.

Danke und Gruss
Christian