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

amol bhosale 

Try this macro:

Sub CopyFiles()
    ' Folder containing the images. Path must end in \
    Const SourcePath = "C:\MyFiles\Source\"
    ' Folder to copy the images to. Path must also end in \
    Const TargetPath = "C:\MyFiles\Target\"
    Dim r As Long
    Dim LastRow As Long
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    For r = 1 To LastRow
        FileCopy SourcePath & Range("A" & r).Value, TargetPath & Range("A" & r).Value
    Next r
End Sub