Fonksiyon da oluşan hata hakkında

[SadiSerdari]

Arkadaşlar aşağıdaki kodla hücredeki tarihle güncel tarihin arasındaki farkı hesaplıyor.

Fonksiyonun tanımını yaparken;

Function dayMonthYear(ByVal Range1 As Range, ByVal Range2 As Range)

şeklinde belirtip;

[I6] = dayMonthYear([C6],[I6])

yazarsam sonucu alıyorum.

Ama sayfa içerisinde

 = dayMonthYear(C6;I6)

şekinde kullanırsam #DEĞER hatası veriyor.

Function dayMonthYear(ByVal Range1 As Range) As Range

    iValue = 365.242199074074
    yearValue = Int(DateDiff("y", Range1, Now) / iValue)
    iYear = yearValue * iValue
    iMonth = iValue / 12
    iDay = iYear / iMonth
    
    monthValue = Int(DateDiff("m", Range1, Now) - iDay)
    dayValue = Int(DateDiff("d", Range1, Now - iYear) - (iMonth * monthValue))
    totalValue = yearValue & " Yıl " & monthValue & " Ay " & dayValue & " Gün"
    
    With dayMonthYear
        If yearValue > 10 Then
            .Value = totalValue
            .Interior.ColorIndex = 40
            .Font.ColorIndex = 3
        Else
            .Value = totalValue
            .Interior.ColorIndex = 0
            .Font.ColorIndex = 1
        End If
    End With

End Function

Sub Dene()
  [I6] = dayMonthYear([C6])
End Sub

şeklinde fonksiyonumu tanımlarsam object variable or with block variable not set hatasıyla karşılaşıyorum. Yardımlarınızı bekliyorum. Teşekkürler.