Error Trapping When Reading From Another Workbook

Hie and welcome to the forum.

Try this (not tested).

Sub PullABHData()
    Dim wb As Workbook
    ' turn off the screen updating
    Application.ScreenUpdating = False
    
    On Error Resume Next
    Application.EnableEvents = False    'Disable event processing (doesn't trigger the Workbook_Open macro.)
    
    ' open the source workbook, read only
    Set wb = Workbooks.Open("J:\Active\" & JobNumber & "\Drafting\Headers\" & JobNumber & "-1_ABH_REV0.xls", True, True)
    
    ' read data from the source workbook
    
    With ThisWorkbook.Worksheets("Sheet1")
        
        .Range("A1").Formula = wb.Worksheets("A").Range("M26").Formula
        .Range("A2").Formula = wb.Worksheets("A").Range("M25").Formula
        .Range("A3").Formula = wb.Worksheets("A").Range("G54").Formula
        .Range("A4").Formula = wb.Worksheets("A").Range("M23").Formula
        .Range("A5").Formula = wb.Worksheets("A").Range("M27").Formula
        .Range("A6").Formula = wb.Worksheets("A").Range("G54").Formula
        .Range("A7").Formula = wb.Worksheets("A").Range("M23").Formula
    End With
    ' close the source workbook without saving any changes
    wb.Close False
    ' free memory
    Set wb = Nothing
    
    Application.EnableEvents = True
    On Error GoTo 0
    
    ' turn on the screen updating
    Application.ScreenUpdating = True
    
End Sub

Originally Posted by redtop91

Would any changes within the workbook being opened be able break this form of error trapping? All of a sudden this doesn't seem to be working.

Care to elaborate on what "doesn't seem to be working" exactly means; nothing happens, and error is thrown (and if so what error, description, and line), wrong data copied?

Does the workbook being opened always have a worksheet named "A"?

I apologize that was an uncharacteristically vague questioin on my part. The workbook that is being opened and read from throws the original error that was encountered "Compile Error: Can't Find Project or Library" Essentially with no changes in my workbook the error trapping is no longer trapping the same error that it was trapping before. The workbook being opened always has a sheet named A yes however I suppose referencing the sheet number might be more robust.

Edit: A network wide upgrade from Excel 2007 to 2010 may be the culprit?