２つ目のコンボボックスが動作しません。

同じユーザーフォーム２に２つコンボボックスがあります。
１つ目のコンボボックスは動作します。(別ブックのシート)
２つ目が動きません。(同じブックの別シート)どうすれば動作しますか？助けてください。
Private Sub UserForm_Initialize()　　　　　　 　　　　←１つ目のコンボボックス１
Dim wb As Workbook
Dim sh As Worksheet
Dim lastrow As Long
Const TargetBook As String = "請求.xlsm"
Dim myDesktop As String
Dim wsh As Object
Set wsh = CreateObject("Wscript.Shell")
myDesktop = wsh.SpecialFolders("Desktop")
Set wsh = Nothing
'ブック名:請求のフルパスを指定
Set wb = Workbooks.Open(myDesktop & "\" & TargetBook)
Set sh = wb.Worksheets("請求先")
lastrow = sh.Cells(sh.Rows.Count, "C").End(xlUp).Row
With ComboBox1
.List() = sh.Range("C2:C" & lastrow).Value
.Style = fmStyleDropDownList
End With
wb.Close False
'初期化処理
Worksheets("受注IMP").Activate
End Sub

Private Sub ComboBox1_Change()
Worksheets("受注IMP").Range("B2").Value = ComboBox1.Text
End Sub

Private Sub コンボ2() 　　　　　　　　　　　　　　　　←　２つ目のコンボボックス２　　　　　
Dim lastrow As Integer　　　　　　　　　　　　　　　　　　　　　　　　　　　　
Dim i As Integer
lastrow = Worksheets("荷主").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
ComboBox1.AddItem Worksheets("荷主").Range("C" & i).Value
Next i
End Sub

Private Sub ComboBox2_Change()
Worksheets("受注IMP").Range("B3").Value = ComboBox2.Value
End Sub