Cacher is the code snippet organizer for pro developers

'When Value Changed
Private Sub Worksheet_Change(ByVal Target As Range)

Private Sub CheckVacant(ByVal Target As Range, ByRef objWs As Worksheet)
    ' When Edit Only 1 cell
    If Target.Count = 1 Then
        'Stop refreshed screen
        Call ScreenUpdating(False)

        ' マクロによる入力でのイベント発生停止
        Application.EnableEvents = False
    
        '空席情報のカラムかをチェック
        If Target.Column = ColVacantSeetDisp Then
        
            Select Case Target.Value
            Case "A", "B", "C", "D", "E"
                objWs.Cells(Target.Row, ColRunNo).Value = ""
               
                ' アクティブセルを戻す
                Target.Select
            Case Else
            End Select
        End If
        
         ' マクロによる入力でのイベント発生停止解除
        Application.EnableEvents = True
        Call ScreenUpdating(True)
    End If
End Sub