Need MsgBox in On Error

Hi,

I have a code that loops through a range, opening workbooks and copying them over. In some cases the workbook names in the loop will not exist. I'd like a message box to pop up with "File not Found" should this even occur, but I don't know where to put it with the On Error statement. Here's what I have, can someone help me by adding the message box?

Set rng = Range("A4:A5")

For Each row In rng.Rows
  For Each cell In row.Cells
  
  On Error Resume Next
  
Dim errors1 As String

errors1 = "C:\asdf\test\" & Format(cell.Value) & ".csv"
Workbooks.Open errors1, True, True

ThisWorkbook.Sheets(cell.Value).Range("A1:Z50000").Value = ActiveWorkbook.ActiveSheet.Range("A1:Z50000").Value

ActiveWorkbook.Close False
Next cell
Next row

Thanks

hi DAK266,

...
errors1 = "C:\asdf\test\" & Format(cell.Value) & ".csv"
Workbooks.Open errors1, True, True

If Err.Number = 1004 Then
    MsgBox "File is not found", vbCritical, "File error"
    Err.Clear
End If

ThisWorkbook.Sheets(cell.Value).Range("A1:Z50000").Value = ActiveWorkbook.ActiveSheet.Range("A1:Z50000").Value
....

on the other hand what is the purpose of the message box if on OK click the code would continue. It would be more logical to collect all errors and show msgbox on code completion with processing results

Jaslake, thank you--it worked perfectly!

Watersev, thanks for the suggestion--I already have that logic in the actual worksheet.

Thank you both for the help.