How to save file as csv utf-8 and keep the name?

[bchaabi]

I want to format all cells as text and save the file as csv utf-8 while keeping the name.

How do I save over the file as csv utf-8? I can only figure out how to save it with the same name every time

Sub CleanList()
'
' CleanList Macro
'
    Cells.Select
    Selection.NumberFormat = "@"
    ChDir "C:\Users\bchaa\Downloads"
    ActiveWorkbook.SaveAs Filename:="C:\Users\bchaa\Downloads\Book1.csv", _
        FileFormat:=xlCSVUTF8, CreateBackup:=False
End Sub

 

[AlphaFrog]

    Dim strFile As String
    If InStr(ActiveWorkbook.Name, ".") Then
        strFile = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
    Else
        strFile = ActiveWorkbook.Name
    End If
    ActiveWorkbook.SaveAs Filename:="C:\Users\bchaa\Downloads\" & strFile, _
        FileFormat:=xlCSVUTF8, CreateBackup:=False