listbox header 나오지가 않아요

리스트 박스의 헤더를 보이게 하려고 하는데 헤더에 제목이 안나타 납니다! 무엇이 문데인지요?

Private Sub CommandButton1_Click()
Dim MyRange As Range
Dim rngC As Range
Dim i As Integer
If TextBox1 = "" Then
MsgBox "거래처를 먼저 입력하세요.."
Exit Sub
Else
With Sheets("거래내역")
Set MyRange = .Range("b6").Resize(.Range("b6").End(xlDown).Row - 1, 1)
End With
ListBox1.Clear
i = 0
For Each rngC In MyRange
If rngC = TextBox1 Then
With ListBox1
.AddItem
.Column(0, i) = rngC.Offset(0, 2) ''빌번호
.Column(1, i) = rngC ''거래처
.Column(2, i) = rngC.Offset(0, 1) ''날짜
.Column(3, i) = rngC.Offset(0, 6) ''기초잔액
.Column(4, i) = rngC.Offset(0, 3) ''증가
.Column(5, i) = rngC.Offset(0, 4) ''감소
.Column(6, i) = rngC.Offset(0, 5) ''잔액

End With
i = i + 1

End If
Next rngC
End If
Set MyRange = Nothing
End Sub

Private Sub TextBox1_Enter()
TextBox1 = ""
End Sub

Private Sub UserForm_Initialize()
With ListBox1
.Clear
.RowSource = "MyRange"
.ColumnCount = 7
.ColumnHeads = True
End With
TextBox1 = ""
End Sub