>>773
なんでプロシージャ名がeuc？ってのはおいといて、FreeFileとか宣言してない変数がいきなり出てくるあたり
どっかのコピペなんだろうけど、もうちょっと落ち着いてコードを見直そうね

Sub out_ex_euc()
　　Dim MyIndex, myADOstr

　　For MyIndex = 1 To 3
　　　　Set myADOstr = CreateObject("ADODB.Stream")
　　　　myADOstr.Type = 2　　'Textモード
　　　　myADOstr.Charset = "UTF-8"
　　　　myADOstr.Open
　　　　myADOstr.writeText Cells(MyIndex, 2).Text
　　　　myADOstr.saveToFile Cells(MyIndex, 1).Text & ".txt", 2
　　　　myADOstr.Close
　　　　Set myADOstr = Nothing
　　Next
End Sub