View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Marilyn Marilyn is offline
external usenet poster
 
Posts: 211
Default dropdown unhide sheet

Hello I have hidden 19 worksheets . Using a new worksheet, I Created a
form and on cell B28 I have a dropdown list naming the19 differend kinds of
agreements. What I want is when the agreement name is selected on cell B 28
for that worksheet to unhide.
This is my code(so far)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target

If Me.Range("B28").Value = "" Then
Worksheets("StandardAgreement").Visible = xlSheetVeryHidden
Else
Worksheets("StandardAgreement").Visible = xlSheetVisible
End If
End With

The above code works ...the next agreement on the list is 3 year Agreement
..so I added the following to the code above


If Me.Range("B28").Value = "" Then
Worksheets("3YearAgreement").Visible = xlSheetVeryHidden
Else
Worksheets("3YearAgreement").Visible = xlSheetVisible

End If
End If

End With
This does not work, How can I add all 19 agreements to the code so that the
whatever agreement is selected in cell B28 the worksheet unhides
thanks for helping me!