lesley burlingham
Member
I have the following code which hides and shows a dropdown box dependant on the value in a cell. I would like the drop down box to be cleared if the option is changed.
If Sheet8.Range("B3").Value = 2 Then
Sheet1.Shapes.Range("Drop Down 3281").Visible = msoTrue
Sheet1.Shapes.Range("Drop Down 3282").Visible = msoFalse
Sheet1.Range("Drop Down 3282").ClearContents
Else
Sheet1.Shapes.Range("Drop Down 3281").Visible = msoFalse
Sheet1.Range("Drop Down 3281").ClearContents
Sheet1.Shapes.Range("Drop Down 3282").Visible = msoTrue
End If
If Sheet8.Range("B3").Value = 2 Then
Sheet1.Shapes.Range("Drop Down 3281").Visible = msoTrue
Sheet1.Shapes.Range("Drop Down 3282").Visible = msoFalse
Sheet1.Range("Drop Down 3282").ClearContents
Else
Sheet1.Shapes.Range("Drop Down 3281").Visible = msoFalse
Sheet1.Range("Drop Down 3281").ClearContents
Sheet1.Shapes.Range("Drop Down 3282").Visible = msoTrue
End If