I have used the following code to open sheets displayed from a dropdown list.
Sub Oval3_Click()
On Error Resume Next
With Sheets(Sheets("Index").Range("C13").Text)
.Visible = xlSheetVisible
.Select
End With
End Sub
I tried to modify the code to be able to close the sheet in the same manner but my very poor VBA skill leave me at a brick wall. I tried,
Sub Oval4_Click()
On Error Resume Next
With Sheets(Sheets("Index").Range("C13").Text)
.Visible = False xlSheet
.Select
End With
End Sub
but I am getting an error msg.
Jim O
Bookmarks