[VBA]Excel

Mi lahko kdo pove zakaj to ne dela. Crkne vedno tam ko se nastavlja vrednost celici brez kakršnega koli opozorila v celici iz katere kličem dobim samo #VREDN!.

Function test(Target As Range) As String

Dim value As Double
Dim max As Double
Dim min As Double

value = CDbl(Target.value)
max = CDbl(Sheets("List1").Range("C2").value)
min = CDbl(Sheets("List1").Range("B2").value)

If value < min Then

Sheets("List1").Range("B5").value = CStr(value)

ElseIf value > max Then

Sheets("List1").Range("C5").value = CStr(value)

End If

test = ""

End Function

Sem zdaj še dal error handler noter in dobim v error description: application-defined or object-defined error, error number pa je 1004.

Se komu sanja kako naj to usposobim, ker ne vem kaj bi blo narobe, ker to sem že delal na tak način pa je delalo normalno, res pa je blo da nisem to delal v funkcijah pač pa v subih sam ne vem kolk ma zdaj to veze, v glavnem čudno se mi zdi zakaj nebi delalo.

EDIT: ja sem šel po korakih z break pointom.

Ja če je izpolnjen pogoj za min se ustavi: Sheets("List1").Range("B5").value = CStr(value) , če je izpolnjen pogoj za max pa:
Sheets("List1").Range("C5").value = CStr(value)


Ne vem zakaj bi bla je čudna vrednost.


Pa tut če naredim na ta način ne gre čez:
Sheets("List1").Range("C5").Select
ActiveCell.FormulaR1C1 = CStr(value)

pa tut če dam tako ne gre:
Sheets("List1").Range("C5").Select
ActiveCell.FormulaR1C1 = "bla"

Tako da čudna vrednost tu ne igra vloge, nekje drugje mora bit fora.

Tut če dam tako ne dela: Sheets("List1").Range("B5").FormulaR1C1 = "bla"

Mam Excel 2003 verzijo.

Evo tu je datoteka:

Funkcije pa se prožijo če spreminjaš celico A2.