Hi,

maybe something like this?
Public Sub Load3Cboxs()
Call Load1Cbox("A5:A500", "ComboBox1")   'Tool Order Search Box
Call Load1Cbox("B5:B500", "ComboBox6") 'Tool Number Search Box
Call Load1Cbox("C5:C500", "ComboBox8") 'Customer Filter (COE)
Call Load1Cbox("D5:D500", "ComboBox9") 'Department Filter
End Sub
I didn't check the rest of the code but this should be the syntax for calling other procedures that have arguments.