Ich möchte einen Vorlageordner (Vorlage) mit allen Dateien kopieren und an ein Ziel aus Spalte A2 in der Tabelle Pfadeinstellnugen kopieren.

dim Vorlage as string
dim Ziel as string

Vorlage = Range("Pfadeinstellungen!Vorlage")
Ziel= Range("Pfadeinstellungen!Ziel")
Const ueberschreiben As Boolean = True
'Const Quelle As String = "Vorlage"
'Const Ziel As String = "Ziel"

Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder Quelle, Ziel, ueberschreiben

Leider funktioniert das nicht