Removing an apostrophy ' from the front of filename

[whatzzup]

I have over 200 excel files that has a apostrophy infron of the file name and wanted to remove them, the filename is currently like this '4123 Flooring, '1211 Window etc., and i want them to be 4123 Flooring and 1211 Window respectively, is there a way to change them in a simple way without doint it one at a time?

 

[RSXchin]

where it says "C:\" replace that with the FOLDER NAME that has the spreadsheets you are fixing.

Put this code in a module in your personal macro workbook.
you do NOT need to put the name of a spreadsheet ANYWHERE in that code.


sidenote: JackDanIce,

I've been using codes like this to do things for all sheets in a folder, but I don't understand how the loop actually works. What is the first file it would look at? what order? and how does it advance?

 

[Richard Schollar]

You need to amend the Dir line first:

Public Sub RenameFile()
    Const strPath As String = "C:\"
    Dim strFileName As String
 
    strFileName = Dir$(strPath & "*")
 
    Do While Len(strFileName) > 0
        If strFileName Like "*'*" Then
            Name strPath & strFileName As strPath & Replace$(strFileName, "'", "")
        End If
        strFileName = Dir$
    Loop
End Sub