Makroda kod açıklaması (kapalı dosyadan veri alma)

[Erdinç FIRTINA]

Değerli Forum Üyeleri,
Forumda büyük emekler harcanarak hazırlandığına inandığım bir dosyadan yararlanmak istedim ancak aşağıdaki satırda hata veriyor. Bunun nedeni office2010 kullanmamla ilgili olabilir mi?

Hata veren satır; (da A1 yazan yerde hata veriyor)

sat1 = ThisWorkbook.Sheets(Sayfa_Adı).Cells.Find(What:="*", After:=[A1],

Bir de aşağıdaki kodu açıklayabilir misiniz?

Private Sub CommandButton4_Click()
dosya_adı = ActiveWorkbook.Name
Sayfa_Adı = ActiveSheet.Name

On Error Resume Next
If WorksheetFunction.CountA(ThisWorkbook.Sheets(Sayfa_Adı).Cells) > 0 Then
sat1 = ThisWorkbook.Sheets(Sayfa_Adı).Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
Else
sat1 = 1
End If

Sayfa_Adı = ActiveSheet.Name
Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).ClearContents
Cells.Interior.ColorIndex = xlNone
Range("A2").Select

On Error Resume Next
Dim Baslik As String
Baslik = "Kaynak Dosyaları İçeren Klasörü Seçin"
Set Obj = CreateObject("shell.application")
Set Klasor = Obj.browseforfolder(0, Baslik, 50, &H0)
Kaynak = Klasor.Items.Item.Path
If Not Klasor Is Nothing Then
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla

On Error Resume Next
Call Liste4(Kaynak, "")

Range("A1").Select
MsgBox "işlem tamam"

Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If

Set Obj = Nothing
Set Klasor = Nothing
Exit Sub
Hata: MsgBox Err.Description, vbExclamation, "Error #" & Err.Number