Hiding sheets based on cell value

[leopalmer]

I have a 2 sheet workbook that is going to be a form for usrers to fill in and send back to me for action to be taken.
What I am trying to achieve is when someone selects Add from a dropdown in cell K19 then only the Add sheet is visible or when they select Amend only the Amend sheet is visible, I do want them to be able to change their mind if they select the wrong option to start with.
I have posted this problem and a copy of the workbook in another forum but can't seem to get anywhere. the workbook is avauilable from
.excelforum.com/excel-programming-vba-macros/982422-hiding-sheets.html#post3564014
Hiding sheets

 

[Comfy]

Paste this into each sheet object:

Private Sub Worksheet_Change(ByVal Target As Range)


Application.EnableEvents = False


    If Not Intersect(Target, Range("K19")) Is Nothing Then
        Select Case Target.Value
            Case "Add"
                Worksheets("Add").Visible = xlSheetVisible
                Worksheets("Amend").Visible = xlSheetHidden
                Worksheets("Add").Range("K19").Value = "Add"
            Case "Amend"
                Worksheets("Amend").Visible = xlSheetVisible
                Worksheets("Add").Visible = xlSheetHidden
                Worksheets("Amend").Range("K19").Value = "Amend"
        End Select
    End If
    
Application.EnableEvents = True
End Sub

 

[leopalmer]

This worked perfectly, thank you so much for your help.