Function Timestamp(Reference As Range)

    If IsNumeric(Application.Caller.Text) = False Or Application.Caller.Text = "0" Then
        If InStr(Reference.Value2, "generated correctly") > 0 Then
            'Debug.Print (Application.Caller.Address & " test2")
            Timestamp = CStr(DateDiff("s", "01/01/1970 00:00:00", Now()) * 1000 + Int(1000 * Rnd))
        Else
            'Debug.Print (Application.Caller.Address & " test1")
            Timestamp = ""
        End If
    Else
        Timestamp = Application.Caller.Text
        'Debug.Print (Application.Caller.Address & " 212 " & Application.Caller.Text)
    End If

    'Debug.Print (Application.Caller.Address & " 121 " & Application.Caller.Text)

End Function