Omdøb mapper og filer vha. VB/VBA

Jeg har en mappestruktur, hvor jeg skal have tilføjet et tal til en mappe og en fil (og der er ca. 200 mapper og filer).

Nuværende mappe og filstruktur:

Mappe Projekt - > Mappe ABC -> Mappe Rapport -> Fil ABC

Mappe ABC og fil ABC skal have tilføjelsen 120, medens at Mappe Projekt og Mappe Rapport skal være uændret.

Skal altså se sådan her ud efter tilføjelse:

Mappe Projekt -> Mappe 120ABC -> Mappe Rapport -> Fil 120ABC

Jeg hælder til at køre et VBA script ala nedenstående, men mangler at få det ændret til at tilføje "120" til den ene mappe og filen.

Kan I hjælpe?

--- kode start ----

Option Explicit

Dim fso:    Set fso = CreateObject("Scripting.FileSystemObject")
Dim N

Sub Main
  Dim CurrentFolder: Set CurrentFolder = fso.GetFolder(".")
  NewFileNames CurrentFolder
End Sub

Sub NewFilenames (ByVal Folder)
  Dim Files: Set Files = Folder.Files
  Dim File, Name
  For Each File In Files
    Name=File.name
    Name=Replace(Name," ","")
    File.Move Name
    N=N+1
  Next
End Sub

Main
MsgBox N & " filer er omdøbt"

--- kode stop ----