VBA advice to change code to work on a mac

[VBA learner ITG]

Hello my peers,

I have the below code that works on my windows machine however fails to run on my mac machine.

can i get your guidance on how i can amend this to work on my mac machine as well as windows.


[code

Sub listFiles()
Dim varDirectory As Variant, flag As Boolean, i As Integer, strDirectory As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & ""
.Title = "Please select a folder to list Files from"
'.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & ""
xFname$ = Dir(xDirect$, 7)
End If
End With
strDirectory = xDirect$
i = 1
flag = True
varDirectory = Dir(strDirectory, vbNormal)


While flag = True
If varDirectory = "" Then
flag = False
Else
Cells(i + 1, 1) = strDirectory
Cells(i + 1, 2) = varDirectory
varDirectory = Dir
i = i + 1
End If
Wend
End Sub
]