Hvor er fejlen i denne simple excel makro

Hej håber i kan hjælpe

Jeg har en excel marko kode  som hedder
Public TimerArray(100, 3) As Variant

Sub SetTime()

Dim j As Integer
   
    j = Int(Mid(Application.Caller, InStr(1, Application.Caller, " ") + 1, Len(Application.Caller) - 8))

    If TimerArray(j, 1) Then
   
            TimerArray(j, 1) = False    'Prepares for New Lap
            TimerArray(j, 3) = Now() - TimerArray(j, 2) 'FinishTime
            ActiveSheet.Range("C1").Offset(j, 1) = TimerArray(j, 3)
           
    Else
            TimerArray(j, 1) = True
            TimerArray(j, 2) = Now() 'StartTime
            ActiveSheet.Range("C1").Offset(j, 0) = TimerArray(j, 2)
            ActiveSheet.Range("C1").Offset(j, 1) = ""
    End If

End Sub

Sub Initialize_SetTimerArray()

Dim i As Integer

    For i = 1 To 25
   
        TimerArray(i, 1) = False 'Timer startet
        TimerArray(i, 2) = 0    'Starttime
        TimerArray(i, 3) = 0    'FinishTime
     
    Next i

End Sub


Jeg indsætter denne i et module. indsætter et billed som en knap og kalder den "billed 1". Starter så mine 2 makro som hedder:

Initialize_settimerarray
SetTime

Når jeg kør SetTime skrive den : Runtime Error 13, Type Mismatch

og fremhæver følgende linje: 

j = Int(Mid(Application.Caller, InStr(1, Application.Caller, " ") + 1, Len(Application.Caller) - 8)) 

Håber meget i kan hjælpe!

MVH Simon