請教目前有A、B、C&D四欄
在C欄或D欄填入數值時，A欄會抓取C或D末5位數值，優先抓C的值。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim number As String
If Range("c" & Target.Row).Value <> "" Then
number = Right(Range("c" & Target.Row), 5)
Range("a" & Target.Row).Value = number
Else: number = Right(Range("D" & Target.Row), 5)
Range("a" & Target.Row).Value = number
End If
End Sub

可當寫入C或D時，整個EXCEL就停住。進入偵錯
Private Sub Worksheet_Change(ByVal Target As Range)<=亮黃色
這該如何修改？