I look at the previous post, he is having the same problem
Run-time error '91': Object variable or With block variable not set.
Private Sub Workbook_Open()
Dim cBar As CommandBar
Dim cbar2 As CommandBar
Set cBar = CommandBars("Engineering"

---problem line
Set cbar2 = CommandBars("Start Macro"

--problem line
For Each Control In cBar.Controls
Select Case Control.Index
Case 1
Control.OnAction = "Add"
Case 2
Control.OnAction = "Delete"
Case 3
Control.OnAction = "undo"
Case 4
Control.OnAction = "Adjustment"
Case 5
Control.OnAction = "New_Payment_Request"
Case 6
Control.OnAction = "stopmacro"
Case 7
Control.OnAction = "loadchangeorders"
Case 8
Control.OnAction = "loadholdbacks"
Case 9
Control.OnAction = "loadsettlement"
End Select
Next
cbar2.Controls(1).OnAction = "startmacro"
End Sub
toolbar:
Engineering
Add Delete Undo Adjust New .........