Xin giúp đỡ về VBA trên Macos

[mrdenpro]

Hi mọi người em có 1 đoạn marco hoạt động tốt trên window, tuy nhiên không dùng đc trên macos

Cụ thể:

Private Sub cmb1_Click()
If MsgBox("Thao tac nay se xoa du lieu cu de nhap du lieu moi, ban chac chan thuc hien?", vbYesNo + vbQuestion, "") = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheet19.Activate
    Range("A1:G100000").Select
    Selection.Clear
    Sheet22.Activate
    Range("A1").Select
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
Dim FilePath  As String
    Dim FileName As String
    Dim FullName As String
    FilePath = Application.GetOpenFilename("Excel Files,*.xl*;*.xm*")
    TextBox1.Text = FilePath
    FileName = Mid(FilePath, InStrRev(FilePath, "\") + 1)
    TextBox2.Text = FileName
    FullName = ActiveWorkbook.Name
    TextBox3.Text = FullName
    
    Dim OWB As Workbook
    Set OWB = Workbooks.Open(TextBox1.Text)
    Windows(TextBox2.Text).Activate
    Range("A1:G10000").Select
    Selection.Copy
    Windows(TextBox3.Text).Activate
    Sheet19.Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    OWB.Close

    Range("A1").Select
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    Sheet22.Activate
    Range("A1").Select
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    Application.ScreenUpdating = True
End Sub

Trên MACOS thì báo lỗi 1004, cụ thể là macos không dùng đc biến Application.GetOpenFilename. Mọi người có giải pháp nào không ạ !!
Cảm ơn mọi người