[VBA ] 無法跳出所選取的選項

[MidoBanA (阿姆斯特朗羊)]

小弟沿用公司前輩的報表做修改

初期很正常

直到今日出現一個不解的問題

    Cells(I, 9).Value = InputBox("K.-KE0201" & Chr(13) & "E.-KE0202")
    If UCase(Cells("I, 9").Value) = "K" Then GoTo KE0201
    If UCase(Cells("I, 9").Value) = "E" Then GoTo KE0202

KE0201:
    If Cells("I, 9").Value >= KE0201 Then
    End If

KE0202:
    If Cells("I, 9").Value >= KE0202 Then
    End If

小弟想要在
https://imgur.com/nQzRo9f.jpg
選擇K後
在儲存格跳出KE0201

不過一直出現 執行階段錯誤1004

請教大大如何解套?

感謝

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.40.146.212 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1585885703.A.F08.html
※ 編輯: MidoBanA (114.40.146.212 臺灣), 04/03/2020 12:18:39