Remove Suffix From Files

Sorry about that. The bold text is turning yellow when I run the code with the break points.

Sub RenameFiles()

  Dim FileName As String
  Dim FilePath As String
  Dim NewFileName As String
  Dim RegExp As Object
  Dim vFolder As Variant
  
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.IgnoreCase = True
    RegExp.Pattern = "(.+)(O\-.+)(\..*)"
        
    FilePath = "D:\Publishing\Catalog\"
    
    RegExp.test (FileName)
    NewFileName = RegExp.Replace(FileName, "$1$3")
    
    
     For Each vFolder In Array("Vox", "Ins")
        FileName = Dir(FilePath & vFolder & "\*.*")
          While FileName <> ""
            If RegExp.test(FileName) Then
               NewFileName = RegExp.Replace(FileName, "$1$3")
               Name FilePath & vFolder & FileName As FilePath & vFolder & NewFileName
            End If
            FileName = Dir()
          Wend
      Next vFolder
    
End Sub

Okay, this is where we're going wrong. The path listed in the PDF is correct. "Alexander" is an artist, but their are many different artist names (folders) in that section of the directory. Does that clear it up?

  'PDF Path
   FilePath = "D:\Publishing\Catalog\Alexander\"

The values listed below are what I'm getting when inserting the break point on

Name FilePath & vFolder & FileName As FilePath & vFolder & NewFileName

FilePath="D:\Publishing\Catalog\Alexander\"
FileName="Be Careful What You Wish For O-0007.wav"
vFolder= "Vox"

Hi Leith,

Sorry for the miscommunication. What I can do is just list all the file paths for all of my artists. Would the example below work?

FilePath = "D:\Publishing\Catalog\Alexander\Ins\"
FilePath = "D:\Publishing\Catalog\Alexander\Vox\"

And so on for the other artists..

But with that said, this path still doesn't remove O-*