sub test
if [A1] = 1 then
sheets("MySheet").visible = false
elseif [A1] = 0 then
sheets("MySheet").visible = true
end if
end sub
dim s as object
for each s in Sheets
if ucase(s.name) <> "ASK ! " then
s.visible = false
end if
next s
' all sheets are now hidden aside from master sheet
' presumes cell with drop down box is A1 in master sheet
dim what_we_want as string
what_we_want = Sheets("Ask ! ").[A1].text
what_we_want = mid(what_we_want,5,5)
for each s in sheets
if s.name = "OP'S " & what_we_want then or s.name = "TL'S " & what_we_want then
s.visible = true
end if
next s
Sheets("OP'S " & what_we_want).select
Sub Button1_Click()
Dim s As Object
For Each s In Sheets
If UCase(s.Name) <> "ASK ! " Then
s.Visible = False
End If
Next s
Dim what_we_want As String
what_we_want = Sheets("Ask ! ").[A1].Text
what_we_want = Mid(what_we_want, 5, 5)
For Each s In Sheets
If s.Name = "OP'S " & what_we_want Or s.Name = "TL'S " & what_we_want Then
s.Visible = True
End If
Next s
Sheets("OP'S " & what_we_want).Select
End Sub