Need to take detail from a workbook using a vlookup function

[Darren Smith]

When i click the list box on "Fill Details" nothing happens???

    If ListBox4 = "Fill Details" Then
            
    On Error GoTo ErrHandler
    Application.ScreenUpdating = False
    
    Dim src As Workbook
    Dim JCM As Worksheet
    
    
    Set src = Workbooks.Open("\\TGS-SRV01\Share\ShopFloor\PRODUCTION\JOB BOOK\JOB RECORD SHEET.xlsm", True, True)
    Set JCM = Worksheets("Job Card Master")
    
    Dim iTotalRows As Integer
    iTotalRows = src.Worksheets("sheet1").Range("A1:A" & Cells(rows.Count, "A").End(xlUp).row).rows.Count
   
   
    Dim iCnt As Integer
    For iCnt = 2 To iTotalRows
        Sheet1.Cells("40" & iCnt) = Application.WorksheetFunction.VLookup(JCM.Cells("G2"), _
        Sheets(JCM).Range("G2"), iCnt, 0)
    Next iCnt
    

    src.Close False
    Set src = Nothing
    
ErrHandler:
    Application.EnableEvents = True
    Application.ScreenUpdating = True

MsgBox "Successfully entered Job Book data to Job Card Master Headers"

End If 

End sub

 

[Darren Smith]

For some reason, I can`t get the source workbook to open??