Vale ya está. Simplemente era sustituir:
Código:
For Each Carpeta In NameArray MsgBox Carpeta Next
por
Código:
For Each Carpeta In NameArray
If Objeto.FolderExists(Carpeta) Then
Objeto.DeleteFolder Carpeta
MsgBox Carpeta & " ha sido eliminada"
End if
Next
... y gracias