salve,

vorrei ,se possibile, poter impostare la tipologia di formato di testo da ANSI a unicode.

come posso fare?

grazie

Sub Command()
On Error Resume Next
Dim filename As String, lineText As String
Dim myrng As Range, i, j
filename = ThisWorkbook.Path & "\Command.txt"
Open filename For Output As #1
Set myrng = Range("M4:M160")
finalrow = Cells(Rows.Count, "M").End(xlUp).Row
For i = 1 To myrng.Rows.Count
     For j = 1 To myrng.Columns.Count
     If myrng.Cells(i, j) = "Errore 2007" Then
    GoTo ritorno
     End If
            lineText = IIf(j = 1, "", lineText & ",") & myrng.Cells(i, j)

Next j
filename = StrConv(filename, vbUnicode)
Print #1, lineText
ritorno:
Next i
Close #1
End Sub