儲存格輸入判斷 - excel vba

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X
X = ActiveCell.Offset(-1, 0).Value

Select Case X

Case 2

ActiveCell.Offset(-1, 1).Value = "台北"

Case 3

ActiveCell.Offset(-1, 1).Value = "台中"
Case 4

ActiveCell.Offset(-1, 1).Value = "台南"
Case 5

ActiveCell.Offset(-1, 1).Value = "台西"
Case Else

ActiveCell.Offset(-1, 1).Value = "無"
End Select


End Sub