VBA: Save Files based on cell value. Apply Trim function when saving

[TheHack22]

Hi All,

I have this code below: It works fine, except for the cell value in A2 (Downloaded Files) contains leading and trailing spaces. So the SaveAs will fail if I don't manually resolve all the leading and Trailing spaces in all the files in A2.

Is there a way to incorporate the TRIM Function into my code?


Sub FileNameAsCellContent()
Dim FileName As String
Dim Path As String
Application.DisplayAlerts = False
Path = "C:\Users\C-TLG\Box\Amp_Page_Views\"
FileName = Range("A2").Value & ".xlsx"
ActiveWorkbook.SaveAs Path & FileName, xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

Imran

 

[Peter_SSs]

Can you please designate one as the solution for me?

You need to decide, but post #27 certainly is not the one with the solution so I have unmarked it.
Choose the one that best answers the question, or if none of them on their own actually did, there is no compulsion to mark any post as the solution.