Change for a Mac computer. Hello. I have this formula and it just stops because I have a Mac computer and not a windows. How can I adjust?

Option Explicit

Sub Update()
Application.ScreenUpdating = False

Dim countdate, cConnection, curDate, curPath, curColumn, lastRow

Sheets("Impressions").Activate
Cells(1, 1).Select
Range(Selection, Selection.End(xlToRight)).Select

countdate = Selection.Columns.Count
curColumn = 5
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
While curColumn <= countdate

curDate = Format(Cells(1, curColumn).Value, "M-D-YY")
curPath = ThisWorkbook.Path & "\Date_File\BusinessReport-" & curDate & ".csv"




If Dir(curPath) <> "" Then

cConnection = "TEXT;" & curPath
'cConnection = "TEXT;D:\Win10\Desktop\New folder\Date_File\BusinessReport-1-9-18.csv",