Yazılan metni makro ile otomatik olarak büyütme ile ilgili problem.

[erhane]

Merhaba arkadaşlar, excelde hücreye yazdığım metni

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b9:f11]) Is Nothing Then Exit Sub
If UCase(Target) <> Target Then
Target = Evaluate("=UPPER(" & Target.Address & ")")
End If
End Sub

bu kodla büyütüyorum fakat, hücrem birkaç hücrenin birleşiminden oluştuğundan sanırım, del tuşuna basıp içeriği sildiğimde hata alıyorum. hata runtime error 13 type mismatch hatası. Bu hatanın alınmaması için koda ne eklemeliyim.

yardımınız için teşekkürler.

 

[turist]

If UCase(Target) <> Target Then
ve
End If

satırlarını silin.