Kod excel 2010 versiyonunda hata veriyor

[polis-53]

Merhaba arkadaşlar aşağıdaki kod excel 2010 da hata veriyor neden acaba

Private Sub UserForm_Initialize()
ThisWorkbook.Worksheets("LİSTE").Select
Dim i As Integer
ListView1.View = lvwReport
Me.ListView1.ColumnHeaders.Clear
Me.ListView1.ListItems.Clear
With ListView1.ColumnHeaders
.Add , , "SIRA NO", 0 ' Burda ..... sütun genişliği
.Add , , "FABRİKA ADI ", 100
.Add , , "FAB.MÜDÜRÜ ", 100
.Add , , "ALAN KODU", 50
.Add , , "SANTRAL-1", 55
.Add , , "SANTRAL-2", 55
.Add , , "MÜD.TELEFONU", 85
.Add , , "FAX", 50
.Add , , "IP NUMARASI", 60
End With
C = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))

With ListView1
For i = 1 To C
X = X + 1
.ListItems.Add , , Cells(i + 1, 1)
.ListItems(X).SubItems(1) = Cells(i + 1, 2) 'Adı
.ListItems(X).SubItems(2) = Cells(i + 1, 3) 'Soyadı
.ListItems(X).SubItems(3) = Cells(i + 1, 4) 'Görevi
.ListItems(X).SubItems(4) = Cells(i + 1, 5) 'Görev Yeri
.ListItems(X).SubItems(5) = Cells(i + 1, 6) 'Görev Yeri
.ListItems(X).SubItems(6) = Cells(i + 1, 7) 'Kayıt Tarihi
.ListItems(X).SubItems(7) = Cells(i + 1, 8) 'Görev Yeri
.ListItems(X).SubItems(8) = Cells(i + 1, 9)
'.ListItems(X).SubItems(9) = Cells(i + 1, 10)
If Left(Cells(i + 1, 2), 1) = "*" Then
.ListItems(X).ListSubItems(1).ForeColor = vbBlue
.ListItems(X).ForeColor = vbBlue
End If

If Left(Cells(i + 1, 2), 1) = "-" Then
.ListItems(X).ListSubItems(1).ForeColor = vbRed
.ListItems(X).ForeColor = vbRed
End If

Next
End With
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ListView1.LabelEdit = lvwManual

End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub