VBA Run time error '13'

[shannen]

What wrong with my code it says that TYPE MISS MATCH when I click other cell. I am a newbie please teach me.

Run-time error '13'

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim filePath As String
Dim sheetName As String
    
    If Target = [B13] Then
    Cancel = True
    Call sheetContentCleanup
    End If
    
    If Target = [A14] Then
    Cancel = True
    Load SheetBox: SheetBox.MultiPage1.Value = 0: SheetBox.Show
    End If
    
    If Target = [A15] Then
    Cancel = True
    Load SheetBox: SheetBox.MultiPage1.Value = 2: SheetBox.Show
    End If

End Sub