Bilder suchen und Kopieren

Sub InhaltAnzeigen()
Dim Z: Z = 2
Dim MyObj As Object, MySource As Object, file As Variant
Dim newDir As String, newPath As String, oldPath As String
oldPath = ("C:\Fazel\Bilder")                                               ' alte Speicherort von Bildern
newDir = "Newfolder"
MkDir ("C:\Fazel\" & newDir)
newPath = ("C:\Fazel\Newfolder")                                      ' neuer Speicherort
Set MyObj = CreateObject("scripting.FileSystemObject")
Set MySource = MyObj.GetFolder("C:\Fazel\Bilder")
For Each file In MySource.Files                                        ' Bilder werden gesucht
If InStr(file.Name, Cells(Z, 15)) > 0 Then
MyObj.copyfile ,oldPath , newPath                               ' Fehldermeldung von dieser Code
End If
Z = Z + 1
Next
End Sub