Error 1004: Application.Dialogs(xlDialogOpen).Show Mac Excel 2016 Importing Data

Sub Import()
Dim DestBook As Workbook, SourceBook As Workbook
Dim DestCell As Range
Dim RetVal As Boolean
 
 
 ' Set object variables for the active book and active cell.
Set DestBook = ActiveWorkbook
Set DestCell = ActiveCell
 
 'Remove all other filters
Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
'Add a custom filter
Call Application.FileDialog(msoFileDialogOpen).Filters.Add( _
"Text Files Only", "*.txt")
 
 ' Show the Open dialog box.
RetVal = Application.FileDialog(msoFileDialogOpen).Show
 
 
 ' If Retval is false (Open dialog canceled), exit the procedure.
If RetVal = False Then Exit Sub
 
 
 ' Set an object variable for the workbook containing the text file.
Set SourceBook = ActiveWorkbook
 
 
 ' Copy the contents of the entire sheet containing the text file.
Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
 
 
 ' Activate the destination workbook and paste special the values
 ' from the text file.
DestBook.Activate
DestCell.PasteSpecial Paste:=xlValues
 
 
 ' Close the book containing the text file.
SourceBook.Close False
End Sub

Dim vFile As Variant
Dim wbCopyTo As Workbook
Dim wsCopyTo As Worksheet
Dim wbCopyFrom As Workbook
Dim wsCopyFrom As Worksheet








Set wbCopyTo = ActiveWorkbook
Set wsCopyTo = wbCopyTo.Sheets("Sheet1")








vFile = Application.GetOpenFilename
If TypeName(vFile) = "Boolean" Then
Exit Sub
Else
Set wbCopyFrom = Workbooks.Open(vFile)
Set wsCopyFrom = wbCopyFrom.Worksheets(1)
End If




'MsgBox "Please Close Opened MHL Workbook To Continue"




wsCopyFrom.Range("A1:ll4000").Copy
wsCopyTo.Range("A1").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
wbCopyFrom.Close False


End Sub

Sub Select_File_Or_Files_Mac()
    'Select files in Mac Excel with the format that you want
    'Working in Mac Excel 2011 and 2016
    'Ron de Bruin, 20 March 2016
    Dim MyPath As String
    Dim MyScript As String
    Dim MyFiles As String
    Dim MySplit As Variant
    Dim N As Long
    Dim Fname As String
    Dim myBook As Workbook
    Dim OneFile As Boolean
    Dim FileFormat As String
    
    'Your variables
    Dim DestBook As Workbook, SourceBook As Workbook
    Dim DestCell As Range
    Dim RetVal As Boolean
    ' Set object variables for the active book and active cell.
    Set DestBook = ActiveWorkbook
    Set DestCell = ActiveCell




    'In this example you can only select xlsx files
    'See my webpage how to use other and more formats.
    'Pulled info from website to change to Text files
    'http://www.rondebruin.nl/mac/mac015.htm
    FileFormat = "{""public.plain-text""}"




    ' Set to True if you only want to be able to select one file
    ' And to False to be able to select one or more files
    OneFile = True




    On Error Resume Next
    MyPath = MacScript("return (path to desktop folder) as String")
    'Or use A full path with as separator the :
    'MyPath = "HarddriveName:Users:<UserName>:Desktop:YourFolder:"




    'Building the applescript string, do not change this
    If Val(Application.Version) < 15 Then
        'This is Mac Excel 2011
        If OneFile = True Then
            MyScript = _
                "set theFile to (choose file of type" & _
                " " & FileFormat & " " & _
                "with prompt ""Please select a file"" default location alias """ & _
                MyPath & """ without multiple selections allowed) as string" & vbNewLine & _
                "return theFile"
        Else
            MyScript = _
                "set applescript's text item delimiters to {ASCII character 10} " & vbNewLine & _
                "set theFiles to (choose file of type" & _
                " " & FileFormat & " " & _
                "with prompt ""Please select a file or files"" default location alias """ & _
                MyPath & """ with multiple selections allowed) as string" & vbNewLine & _
                "set applescript's text item delimiters to """" " & vbNewLine & _
                "return theFiles"
        End If
    Else
        'This is Mac Excel 2016
        If OneFile = True Then
            MyScript = _
                "set theFile to (choose file of type" & _
                " " & FileFormat & " " & _
                "with prompt ""Please select a file"" default location alias """ & _
                MyPath & """ without multiple selections allowed) as string" & vbNewLine & _
                "return posix path of theFile"
        Else
            MyScript = _
                "set theFiles to (choose file of type" & _
                " " & FileFormat & " " & _
                "with prompt ""Please select a file or files"" default location alias """ & _
                MyPath & """ with multiple selections allowed)" & vbNewLine & _
                "set thePOSIXFiles to {}" & vbNewLine & _
                "repeat with aFile in theFiles" & vbNewLine & _
                "set end of thePOSIXFiles to POSIX path of aFile" & vbNewLine & _
                "end repeat" & vbNewLine & _
                "set {TID, text item delimiters} to {text item delimiters, ASCII character 10}" & vbNewLine & _
                "set thePOSIXFiles to thePOSIXFiles as text" & vbNewLine & _
                "set text item delimiters to TID" & vbNewLine & _
                "return thePOSIXFiles"
        End If
    End If




    MyFiles = MacScript(MyScript)
    On Error GoTo 0




    'If you select one or more files MyFiles is not empty
    'We can do things with the file paths now like I show you below
    If MyFiles <> "" Then
        With Application
            .ScreenUpdating = False
            .EnableEvents = False
        End With




        MySplit = Split(MyFiles, Chr(10))
        For N = LBound(MySplit) To UBound(MySplit)




            'Get file name only and test if it is open
            Fname = Right(MySplit(N), Len(MySplit(N)) - InStrRev(MySplit(N), _
                Application.PathSeparator, , 1))




            If bIsBookOpen(Fname) = False Then




                Set myBook = Nothing
                On Error Resume Next
                Set myBook = Workbooks.Open(MySplit(N))
                On Error GoTo 0




                If Not myBook Is Nothing Then
                '---------------------
                '---------------------
                '---------------------
'                    MsgBox "You open this file : " & MySplit(N) & vbNewLine & _
'                    "And after you press OK it will be closed" & vbNewLine & _
'                    "without saving, replace this line with your own code."
'                    mybook.Close savechanges:=False
                    
                    'YOUR CODE INSERTED HERE
                     ' Copy the contents of the entire sheet containing the text file.
                    With myBook.Worksheets(1)
                        .Range(.Range("A1"), .Range("A1").SpecialCells(xlLastCell)).Copy
                    End With
                    
                    DestCell.PasteSpecial Paste:=xlValues
                     
                    myBook.Close
                '---------------------
                '---------------------
                '---------------------
                End If
            Else
                MsgBox "We skip this file : " & MySplit(N) & " because it Is already open"
            End If




            Next N
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
        End With
    End If
End Sub




Function bIsBookOpen(ByRef szBookName As String) As Boolean
    ' Rob Bovey
    On Error Resume Next
    bIsBookOpen = Not (Application.Workbooks(szBookName) Is Nothing)
End Function