Excel export Selection to UTF-8 CSV file

saveUnicodeCSV.bas

Sub saveUnicodeCSV() 
  'Excel export Selection to UTF-8 CSV file
  
	Set oAdoS = CreateObject("ADODB.Stream") 
	oAdoS.Charset = "UTF-8" 
	oAdoS.Mode = 3 
	oAdoS.Type = 2 
	oAdoS.Open 

	Dim rng As Range 
	Dim row As Range 
	Dim cell As Range 
	Set rng = Selection 

	For Each row In rng.Rows 
		For Each cell In row.Cells 
			oAdoS.WriteText (",""" & cell.Text & """") 
		Next cell 
		oAdoS.WriteText (vbCrLf) 
	Next row 

	oAdoS.SaveToFile "export.csv", 2 
	oAdoS.Close 
	Set oAdoS = Nothing 
End Sub