makro çalıştıktan sonra durmuyor.acil lütfen

[kemal turan]

merhabalar,
Aşağıdaki makro üzerinde çalışıyordum.birden makro sanki kısır döngüye girdi,
durmuyor. mause yuvarlak mavi renkte dönüyor, formül çubuğunda ise seçilen hücre bilgisi gidip gidip geliyor hızlı bir şekilde.
makroyu sildim. hala çalışıyor.
Bunu nasıl durdurabilirim.İşlemcide son sürat çalışyor.exceli kapatamıyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [b:b]) Is Nothing Then
On Error Resume Next
Sheets(CStr(Target.Value)).Select
End If
If Not Intersect(Tart, [b:b]) Is Nothing Then
Cells(Rows.Count, "a").End(3).Offset(1, 0) = Range("f1").Value
End If
son:
End sub

 

[kemal turan]

Merhaba,
kod aşağıdaki düzeltilerek sorun çözülmüştür.
Teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [b:b]) Is Nothing Then
Cells(Rows.Count, "a").End(3).Offset(1, 0) = Range("f1").Value
End If

End Sub