you can try like
Code:
End With
If Not Err.Number = 0 Then
    Application.OnTime Now + TimeSerial(0, 1, 0), "webpull"
    Err.Clear
    Exit Sub
End If
Call Macro152 'Transfers record sheet
put on error resume next at the top of procedure
note this will only work if an error is generated