Hide and unhide groups of worksheets automatically in Excel. Hide and unhide groups of worksheets by drop-down list selection. Check out my online courses www.easyexcelanswers.com/courses.html
All my courses include online support and a user manual
Let me teach you the VBA that I have learn in my five years of consulting
Let’s take the frustration out of user forms
Become an Affiliate and earn 25% on Course Sales
For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.
Contact me regarding customizing this template for your needs.
Click for online Excel Consulting
I am able to provide online help on your computer at a reasonable rate.
I use a Blue condenser Microphone to record my videos, here is the link
Check out Crowdcast for creating your webinars
If you need to buy Office 2019 follow
I use Tube Buddy to help promote my videos
Check them out
Follow me on Facebook
TWEET THIS VIDEO
Follow me on twitter
easyexcelanswers
IG @barbhendersonconsulting
You can help and generate a translation to you own language
*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I’ve used or have experience with.
code for worksheet
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range(“c3”)) Is Nothing Then
Call hidews
Application.EnableEvents = True
End If
End Sub
code for module
Sub hidews()
Dim which As String
which = Sheet1.Range(“C3”).Value
Sheet1.Range(“C3”).Select
Select Case which
Case Is = “one”
Worksheets(“A”).Visible = True
Worksheets(“B”).Visible = True
Worksheets(“c”).Visible = True
Worksheets(“D”).Visible = False
Worksheets(“e”).Visible = False
Worksheets(“f”).Visible = False
Case Is = “two”
Worksheets(“A”).Visible = False
Worksheets(“B”).Visible = False
Worksheets(“c”).Visible = False
Worksheets(“D”).Visible = True
Worksheets(“e”).Visible = True
Worksheets(“f”).Visible = True
Case Is = “three”
Worksheets(“A”).Visible = True
Worksheets(“B”).Visible = True
Worksheets(“c”).Visible = False
Worksheets(“D”).Visible = False
Worksheets(“e”).Visible = False
Worksheets(“f”).Visible = True
End Select
End Sub
Watch more new videos about Excel Office | Synthesized by Mindovermetal English
