çakışan kodları nasıl düzeltebilirim

[AKREP1]

:yardim: Arkadaşlar benim sorunum çok sayıda sayfadan oluşan bir Excel kitabın da bir tablo hazırlıyorum
Bu tabloda yazı boyutunu küçültmek için ve kayan yazı için verilen kodlar aşağıda.

Yazı boyutunu otomatik küçültsün diye
ThisWorkbook(Code) ye kayıtlı
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [b:aj]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Cells.Value > 99 Then
Target.Cells.Font.Size = 8
Else
Target.Cells.Font.Size = 10
End If
End Sub

Kayan yazı efekti
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Single
Dim ilk, son, veri As String
Do While (True)
DoEvents
ilk = Left(Cells(1, 1), 1)
son = Mid(Cells(1, 1).Value, 2, Len(Cells(1, 1).Value) - 1)
Cells(1, 1).Value = son + ilk
For i = 1 To 12000000
Next i
veri = Cells(1, 1).Value
Loop
End Sub


Başka bir sayfaya geçerken bu hatayı veriyor.

Run-time error’1004’:
Method ‘Intersect’of object’_Global’failed


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [b:aj]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Cells.Value > 99 Then
Target.Cells.Font.Size = 8
Else
Target.Cells.Font.Size = 10
End If
End Sub

dosyadan bir bölüm ekte sunulmuştur.
Yardımlarınız için teşekkürler.