Hide rows using VBA based on cell value

[Analyst77]

Hi all,

I am trying to hide a row in my "Overview" tab based on a cell value in my "Data" tab. So if cell B8 in my "Data" tab equals "Yes" then I want to hide rows 15 and 16 on my "Overview tab". I'm still fairly new to VBA. Below is what i came up with so far. Any help would be greatly appreciated.

Thanks!

Sub Hiderows()


Sheets("Data").Select


If Target.Address = "$B$8" Then


If Target.Value = "Yes" Then Sheets("Overview").Select Rows("15:16").EntireRow.Hidden = True


If Target.Value = "No" Then Sheets("Overview").Select Rows("15:16").EntireRow.Hidden = False


End If
End Sub

 

[My Aswer Is This]

Try this:

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet named "Data" tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Value = "Yes" Then Sheets("Overview").Rows("15:16").Hidden = True
If Target.Value = "No" Then Sheets("Overview").Rows("15:16").Hidden = False
End If
End Sub

 

[Analyst77]

Yes! That looks like it worked. Thank you!

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Yes! That looks like it worked. Thank you!