Excel 2010 makro sorunu

[ozuberk]

Merhaba aşağıdaki kodu excel 2007 çalıştırdığım zaman sorunsuz çalışıyor. Aynı kodu 2010 da çalıştırdığımda hata alıyorum. Konu hakkında bilgisi olan varmı arkadaşlar.

Private Sub Yenile_Click()
Application.ScreenUpdating = False
Worksheets("Bakmakla Yükümlü").Select
ListBox1.Clear
ListBox1.ColumnWidths = 30 & ";" & 225
ListBox1.ColumnCount = 2
son = Sheets("Bakmakla Yükümlü").Range("B65536").End(xlUp).Row '(Hatayı burdan alıyorum)
k = 0
For i = 12 To son
If Cells(i, 3) <> "" Then
ListBox1.AddItem
ListBox1.List(k, 0) = Cells(i, 3)
ListBox1.List(k, 1) = Cells(i, 5)
ListBox1.List(k, 2) = Cells(i, 3).Row
k = k + 1
End If
Next i
Worksheets("AnaSayfa").Select
End Sub

 

[hamitcan]

son = Sheets("Bakmakla Yükümlü").Range("B65536").End(xlUp).Row

kodu, aşağıdaki şekilde değiştirip, deneyin.

son=[b65536].end(3).row

 

[ozuberk]

Hocam hata verdi.

Compile error:

Can't find project or library

 

[uzmanamele]

merhaba

modülde "Option Explicit" yazısı varsa "son" için neyin sonu, nedir bu son gibi bir soruyla karşılaşırsınız.
bunu deneyiniz.

Dim son As Double

 

[ozuberk]

İşlerimin yoğunluğundan yeni bakabildim. Cevaplar için teşekkür ederim. Kolay gelsin