Application.getopenfilename Type Mismatch Error

Private Sub CommandButton4_Click()
    'variant allows for the selection of multiple files.
    Dim FileName() As Variant
    Dim tmpFiles As String
    Dim i As Long
    Dim ProjOutFolder
    Dim ProjDir As String
    Dim ResultsFile As String
    Dim j As Integer
    Dim ManageArray() As String
    Dim LastCol As Integer
    Dim tmpFileName As String
    Dim PathFileName() As String
    Dim a As Integer
    Dim StrCompNum As Integer
    
    
                
    
    With Sheets("Manage")
        'Get and format the Existing project or file name
      '  Set ProjOutFolder = .Cells.Find(What:="Output Folder", After:=.Cells(1, 1), LookIn:=xlValues, _
      '          LookAt:=xlPart, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Offset(0, 1)
        
        If Dir(ProjOutFolder, vbDirectory) = vbNullString Then
            MsgBox "The Output Folder path on the Manage tab is not found. If your path is a UNC network drive, please use a mapped drive instead."
            Exit Sub
        Else
            'change this to the first character of the project out folder:
            If Left(Trim(ProjOutFolder), 1) Like "[A-Za-z]" Then
                ChDrive Left(Trim(ProjOutFolder), 1)
            End If
    
            ChDir (ProjOutFolder)
        
 	    'Type mismatch error occurring here - only when cancel is clicked.
            FileName = Application.GetOpenFilename("NHK Files, *.nhk,All Files, *.*", , , , True)
            On Error GoTo CancelClicked
            
            With Application
                'Reset Start Drive/Path
                If (Left(.DefaultFilePath, 1)) Like "[A-Za-z]" Then
                    ChDrive (Left(.DefaultFilePath, 1))
                End If
                ChDir (.DefaultFilePath)
             End With
    
        	If IsArray(FileName) Then
        
                'split out FileName: remove the output path, and split out
                'the base filename and the batch run label
                'Loop through array and display each file name selected.
                ReDim PathFileName(1 To UBound(FileName), 1 To 4)
                For i = LBound(FileName) To UBound(FileName)
                
                   
                    'pull out portion after last occurring slash
                    
                    tmpFileName = Right(FileName(i), Len(FileName(i)) - InStrRev(FileName(i), "\"))
                    PathFileName(i, 1) = FileName(i)
                    PathFileName(i, 2) = Trim(Left(tmpFileName, InStr(tmpFileName, " - Baseline Design.nhk")))
                    'Pull out path name
                    PathFileName(i, 3) = Left(FileName(i), (InStrRev(FileName(i), "\") - 1))
                    PathFileName(i, 4) = Replace(tmpFileName, ".nhk", "")
                    
                Next i
        End If
               
        
        
End With
       
CancelClicked:
    If Not IsArray(FileName) Then
        Exit Sub
    End If
    
End Sub