VBA - EXCEL -NEED HELP Renaming file in same path

[fife8]

NEED HELP!!
VBA - EXCEL -NEED HELP Renaming file in same path + text addition

Hello and thank you for reading/responding. I am using the current code to save as CSV to XLSX.
BUT- this is renaming the file with the TEMP<CURRENTFILENAME>... AND placing on my desktop.

With Activeworkbook
.SaveAs Filename:= .Path & Left$(.Name, InstrRev(.Name,".")) & "xlsx", FileFormat:=xlOpenXMLWorkbook
End With
​

Ideally - I would like this code to rename file (filename + "CLEANED")<CURRENTFILENAME+"CLEANED"> THEN save in same directory... Please help... been Googling for a couple days now...

 

[fife8]

TEMP Is the folder this file is in... I have tweaked the code to be as follows:

Activeworkbook.SaveAs Filename:= ThisWorkbook.Path & "\" & Left$(Activeworkbook.Name, InstrRev(Activeworkbook.Name,".")) & "xlsx", FileFormat:=xlOpenXMLWorkbook


NOW- I just need to know where to add "-CLEANED" to so it becomes (filename-CLEANED.xlsx)...

 

[John_w]

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) & "-CLEANED.xlsx", FileFormat:=xlOpenXMLWorkbook

 

[fife8]

THANKS JOHN_w!!