MacでVBAを使って、セルの値をファイル名にしたテキストファイルを自動で作成したい

Macで、VBAを使って、自動的にテキストファイルを作成するツールを作りたいと思っています。
あるセルの値をファイル名にしてして、テキストファイルを書き出したいと思っているのですが、文字コードが違うせいか、エラーが出てしまいます。

以下のコードでエラーが出てしまうので、エラーが出ないように修正して頂けると助かります。

'テキストファイル出力
Public Sub TextOutput()

Dim R_data As Integer '行番号
Dim n As Integer '連番用
R_data = 5
n = 1

Do While Cells(R_data, 1) <> ""

Open "/Users/＊＊＊＊/Desktop/" & Cells(R_data, "N").Value & ".txt" For Output As #1
Dim i As Integer
For i = 35 To 84
Print #1, Cells(R_data, i).Value
Next
Close #1
R_data = R_data + 1
n = n + 1
Loop

'終わったのが分かるようにメッセージを出す
MsgBox "完了！"