VBA funktion fejler i at skrive i ark

Hej

Problem haves:
Når jeg bruger min "custom" funktion PICOUNT(.....) via regneark får jeg blot værdien "#VALUES" uden at arket opdatere worksheetet 'PIcount'

Hvis jeg bruger VBA og kalder functionen call PIcount(....) er der ingen problemer med at opdatere værdier i regnearket.

Meningen med funktion af at den skal tælle at antal af "events" som findes via et andet addin. som uheldigvis skal bruge en masse rækker for dette. resultatet af antal af event smides i E6 (som en formel i workbooken.

VBA KODE
####################


Public Function PICOUNT(Tag1 As String, Type1 As String, Condition1 As String, Tag2 As String, Type2 As String, Condition2 As String, Starttime As Double, Endtime As Double) As Double

Worksheets("PICount").Range("F2") = "A" 'For udregning til at fejle
Worksheets("PICount").Range("F3") = "A" ' For udregning til at fejle

Worksheets("PICount").Range("B2") = Tag1
Worksheets("PICount").Range("C2") = Condition1

Worksheets("PICount").Range("B3") = Tag2
Worksheets("PICount").Range("C3") = Condition2

Worksheets("PICount").Range("D2") = Starttime
Worksheets("PICount").Range("E2") = Endtime

Worksheets("PICount").Range("D2").Style = "Comma"
Worksheets("PICount").Range("E2").Style = "Comma"


Worksheets("PICount").Range("F2") = Type1
Worksheets("PICount").Range("F3") = Type2
   

If Worksheets("PICount").Range("E2") = 5000 Then
    MsgBox ("PICOUNT ERROR, Max count reached")
Else
    PICOUNT = Worksheets("PICount").Range("E6")
End If

End Function