Error handling on a loop

[BrianG86]

Hi,

I want to instruct my macro to inform the user if there is an error then go back to the start of the loop when one occurs.

I do not want to Resume Next, I just want to go to the next in the series of loops, if that makes sense?

Sub CopyAllData()

    Dim strF As String, strP As String
    Dim wb As Workbook
    Dim ws As Worksheet




'Edit this declaration to your folder name
strP = "T:\Lender Updates\Lender Updates\Lloyds\Paid" 




strF = Dir(strP & "\*.xlsm") 




Do While strF <> vbNullString
    
    Set wb = Workbooks.Open(strP & "\" & strF, UpdateLinks:=3, ReadOnly:=True, Password:="Florida13")
    Set ws = wb.Sheets("Paid") 'uses first sheet or if all the same names then ws.Sheets("yoursheet")
    ws.Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    ThisWorkbook.Activate
    ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial
    Application.CutCopyMode = False
    wb.Close True
    
    
    strF = Dir()
Loop




End Sub