Combine 2 worksheet change events

**akderitend** · 09-07-2012, 08:59 AM

Hi

I am trying to combine two worksheet change events without any joy;

Private Sub Worksheet_Change(ByVal Target As Range)
If [l7] = "Yes" Then
Sheets("Mobile Tower checklist p10").Visible = True
Else
Sheets("Mobile Tower checklist p10").Visible = False
End If
Private Sub Worksheet_Change(ByVal Target As Range)
If [l6] = "Yes" Then
Sheets("LIFT PLAN").Visible = True
Else
Sheets("LIFT PLAN").Visible = False
End If
End Sub

Im sure its a fairly simple fix but im baffled!

cheers

**tom1977** · 09-07-2012, 09:05 AM

Hi
Get rid of red part from Your code

Private Sub Worksheet_Change(ByVal Target As Range)
If [l7] = "Yes" Then
Sheets("Mobile Tower checklist p10").Visible = True
Else
Sheets("Mobile Tower checklist p10").Visible = False
End If
Private Sub Worksheet_Change(ByVal Target As Range)
If [l6] = "Yes" Then
Sheets("LIFT PLAN").Visible = True
Else
Sheets("LIFT PLAN").Visible = False
End If
End Sub

**akderitend** · 09-07-2012, 09:15 AM

Thanks Tom, greatly appreciated.

If i wanted to unhide more than one sheet using the second command code, how would i do that?

**akderitend** · 09-07-2012, 09:19 AM

As in;

Private Sub Worksheet_Change(ByVal Target As Range)
If [l7] = "Yes" Then
Sheets("Mobile Tower checklist p10").Visible = True
Else
Sheets("Mobile Tower checklist p10").Visible = False
End If
If [l6] = "Yes" Then
Sheets("LIFT PLAN","lift plan 2", "lift plan 3").Visible = True
Else
Sheets("LIFT PLAN","lift plan 2", "lift plan 3").Visible = False
End If
End Sub

is this right?

**tom1977** · 09-07-2012, 09:21 AM

In standard module try this

Sub aa()
Dim wk As Worksheet
For Each wk In ThisWorkbook.Worksheets
wk.Visible = 1
Next
End Sub

**akderitend** · 09-07-2012, 09:36 AM

Apolgies, my vba experience is in starter mode - where does that element of the code go?

**tom1977** · 09-07-2012, 09:39 AM

A little information e.g. here:
http://www.contextures.com/xlvba01.html

**Cutter** · 09-07-2012, 06:57 PM

@ akderitend

Welcome to the forum.

Please notice that code tags have been added to your post(s). The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at top of the page and read Rule #3.
Thanks.