When you want to save an excel file as tex utf-8 and give it your own extension, use this code and adjust it to your needs.
Sub SaveFile()
Dim x As Long
Dim sSaveAsFilePath As String, strBouquet As String, Land As Variant
Dim Cel As Range
Dim arrLands() As Variant
On Error GoTo ErrHandler:
Set...