Adjust code to fit a Mac computer

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",

1)
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

2) Try
Hit Ctrl + H (Replace)
enter what box : \
enter replacement box : "& application.pathseparator & "

should replace all \.