[RESOLVED] Run-time Error 424 "Object needed" is bugging me

[Tobian]

Following Function give Run-time Error 424 Object needed in the line:LookupValue = Application.Caller.Offset(0, -1).Value.
Where do I use a wrong data type?
Formula gives back only "0", nomather if the statement is true or false.

Function LookOneBack() As Long
Dim LookupValue As Variant
Dim rngMatrix As Range
 
        Application.Volatile
        
        LookupValue = Application.Caller.Offset(0, -1).Value
        Set rngMatrix = ThisWorkbook.Worksheets(1).Range("B1:B4")
        
        If rngMatrix.Find(What:=LookupValue, _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            MatchCase:=False) Is Nothing Then
            LookOneBack = 0
        Else
            LookOneBack = 2
        End If
        
        Set rngMatrix = Nothing
End Function

[Tobian]

I simplified the function and now it works . Still, when I debug the function it gives same Run-time Error 424 Object needed. Can anyone solve this bug for me?

Function LookOneBack() As Variant
 
Application.Volatile
LookOneBack = Application.Caller.Offset(0, -1).Value
 
End Function

[Tobian]

Oke solved the bug.

Public Function ValueOneBack() As Variant
    
    ValueOneBack = ""
    
    Application.Volatile
    
    If TypeName(Application.Caller) = "Range" Then
        If Application.Caller.Row <> 65536 And Application.Caller.Column <> 1 Then
            ValueOneBack = Application.Caller.Offset(1, -1).Value
        End If
    End If
 
End Function
 
Function MatchOneBack() As Integer
    Dim LookupValue As Variant
    Dim rngMatrix As Range
    
    LookupValue = ValueOneBack
    
    Set rngMatrix = Worksheets(1).Range("B1:B4")
        
    If rngMatrix.Find(What:=LookupValue, _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        MatchCase:=False) Is Nothing Then
        MatchOneBack = 0
    Else
        MatchOneBack = 2
    End If
        
    Set rngMatrix = Nothing
    
End Function