Selected Answer
Hi. Not sure of the overall design or intention of your code but I think the problem is in the sheet11 sub Worksheet_Change(ByVal Target As Range).
If you comment out these lines,
'If Not Intersect(Target, Range("D10:D20")) Is Nothing And Range("D" & Target.row).value <> Empty Then
'Equip_Load
'End If
then the sheet updates correctly (I think) for G2 selections of Mike, Floye or Sylve,Floye (who have data in sheet CustomerItems)
I think the problem without that, when you change G2, it triggers the sub Empl_Load via these lines:
If Not Intersect(Target, Range("G2")) Is Nothing Then
If Range("G2").value <> Empty And Range("B5").value <> Empty Then Empl_Load
That Empl_Load sub alters column D which again triggers the Worksheet_Change sub. This time (since D2 has some spaces in), it triggers Empl_Load again via the lines I commented out above.
In my case (without the change abve), the worksheet crashes when Mike, Floye is selected.