Help:) To find files and copy to new location - filesystem object.

Try

Public Sub copyImageFiles()
On Error Resume Next

'##
'## declare
'##
    Dim rowNumber As Long
    Dim objFSO As Object
    
'##
'## freeze interfaces updates for performance reasons
'##
    Application.ScreenUpdating = False
   
'##
'## initialise
'##
    Set objFSO = CreateObject("Scripting.FileSystemObject")
        
'##
'## loop for all rows on the active worksheet and copy the image object from the source to the target
'## folder - if the copy operation returns an error the file did not exist - use objFSO.MoveFile to actually move
'## the image object
'##
    With ThisWorkbook.ActiveSheet
        For rowNumber = 2 To .Cells(1, "A").End(xlDown).Row
            objFSO.CopyFile "D:\www\mywebsite.uk\image\data\" & .Cells(rowNumber, "B").Value, "D:\www\mywebsite.uk\image\data\filesfound\"
            If Err.Number <> 0 Then
                .Cells(rowNumber, "AA") = "No"
            Else
                .Cells(rowNumber, "AA") = "Yes"
            End If
        Next rowNumber
    End With
    
'##
'## unfreeze interfaces updates for performance reasons
'##
    Application.ScreenUpdating = True
   
End Sub

Here is whats happening now.

I added the code provided by OllieB after my existing macro shown in the first post.

I'm using Office 2010 and the macro is stored in the default personal.xlsb file.

When I run OllieB's macro it appears the hang for about 4 minutes but is actually running.

When the macro completes it has entered "No" in coloumn "AA" of the personal.xlsb file, not the file I'm working on which has the data. It has entered "No" in over 104,000 rows but there are less than 500 rows of original data.

No files are being coppied to the filesfound folder.

Any further assitance would be appriciated, thanks.

CosyDan6

Please note that the line

Thisworkbook.Activesheet

ensures that the actions take place on the active worksheet in the same workbook where the code is located. Changing it to just Activesheet will allow to run the code to run against the current active worksheet which could be in a different workbook if you have multiple workbooks open. Your change therefore is unlikely to be the reason for the code to start working.

The problem was most likely due to the statement

For rowNumber = 2 To .Cells(1, "A").End(xlDown).Row

which tries to find the last row in use on the worksheet by starting in Cell A1 and moving down to the last filled cell in that column.

But anyway, glad to hear it is working now