新增欄位後 跳出"偵錯"視窗的原因?

我在新增欄位的時候(黃色部分)~跳出

執行階段錯誤'13':
型態不符合

雖然我都直接按"結束" 是沒有發生什麼問題，也可以新增，但還是想了解一下是哪裡出了問題。
回覆：
直接按結束你的事件就無法在驅動了

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [$E$12:$E$65536]) Is Nothing Then Exit Sub 'e欄小寫轉大寫
   
3. If Target.Count > 1 Then Exit Sub
   
4. Application.EnableEvents = False
   
5. Target = UCase(Target)
   
6. Application.EnableEvents = True
   
7. End Sub

***
是插入整列所以觸發程序後的Target無法被確認所以跳出錯誤訊息
***
原來如此 沒有看清楚題意.謝謝指點
你加上  If Target.Count > 1 Then Exit Sub 來化解樓主問題
我將 Target 指定為第一個Cell  就沒問題了

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target.Cells(1), [$E$12:$E$65536]) Is Nothing Then Exit Sub 'e欄小寫轉大寫
   
3. Application.EnableEvents = False
   
4. Target.Cells(1) = UCase(Target.Cells(1))
   
5. Application.EnableEvents = True
   
6. End Sub