How do I copy some multiple photos from one folder to another?

krishank652 

Please read this link before continuing

Welcome to your Excel discussion space!

How are you sure that what was written or copied in the Excel sheet also exists in the folder?
Here is a suggested solution with direct copying from folder to folder.

Option Explicit

Sub Copy()
  Dim rngC As Range
  Const cstrPfad1 As String = "c:\Bilder\"
  Const cstrPfad2 As String = "c:\Bilder\relevant\"
  If Dir(cstrPfad2, vbDirectory) = "" Then
    MkDir cstrPfad2
  End If
  For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
    Name cstrPfad1 & rngC As cstrPfad2 & rngC
  Next
End Sub