Force user to select from list on adjacent column if option from list is selected

[lucid33]

Hi All,

A user on this site kindly provided me with the below code. The code done exactly what I wanted at the time:
"I have a dropdown list on column AY with 'In-Scope' & 'Removed' as the options. If a user selects 'Removed' I want to force them to enter free text in column AZ to explain why they selected 'Removed'."

What I'm looking to change in this code is if the user selects 'Removed' on column AY, it forces them to select from a list or group of options which will be shown on column AZ, e.g 'Damaged', 'Other' etc

I probably will have six options to choose from.

Thanks

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column <> 51 Then Exit Sub 'Check for Entry in a single cell in Column AY
    If Target = "Removed" Then
        Response = InputBox("Enter reason for removal from scope below:", "Reason for removal")
        Application.EnableEvents = False
        If Len(Response) = 0 Then
            Target = "In-Scope"
        Else
           Cells(Target.Row, Target.Column + 1) = Now() & " " & Application.UserName & ": " & Response
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[lucid33]

or if I have a list step up on new sheet called 'Mapping' A2:A4, with the following options - Yes, No, Damaged, Other.
So when the user selects 'Removed' on AY, they are given the following options to choose from.
Once they select an option, it appears in column AZ
Thanks