Hide Columns Based on Cell in Antoher Tab

[kw127533]

Hi There,

I'm looking to hide columns AD, AF, AH & AJ on sheet DC Project if cell B13 from the Contacts sheet is equal to no or blank. If it is yes I want to show all of those columns. Can someone please help?? I can't figure out how to code it based on multiple sheets. This is what I have so far (in the Contacts sheet coding):

Private Sub Worksheet_Change(ByVal target As Range)
If Range("B13").Value = "No" Then
Cell is populated, Make row 4 on "DC Projects" hidden
Sheets("DC Project").Columns("ad").EntireColumn.Hidden = True
'Sheets("DC Project").Columns("af").EntireColumn.Hidden = True
Sheets("DC Project").Columns("ah").EntireColumn.Hidden = True
Sheets("DC Project").Columns("aj").EntireColumn.Hidden = True
Else
Cell is empty, Make row 4 on "DC Projects" unhidden
Sheets("DC Project").Columns("ad").EntireColumn.Hidden = False
Sheets("DC Project").Columns("af").EntireColumn.Hidden = False
Sheets("DC Project").Columns("ah").EntireColumn.Hidden = False
Sheets("DC Project").Columns("aj").EntireColumn.Hidden = False
End If
End Sub

 

[JLGWhiz]

I think this might work

Private Sub Worksheet_Change(ByVal target As Range)
 If Range("B13").Value = "Yes" Then
	 'Cell is empty, Make row 4 on "DC Projects" unhidden
 	Sheets("DC Project").Columns("ad").EntireColumn.Hidden = False
 	Sheets("DC Project").Columns("af").EntireColumn.Hidden = False
 	Sheets("DC Project").Columns("ah").EntireColumn.Hidden = False
 	Sheets("DC Project").Columns("aj").EntireColumn.Hidden = False
Else
 	'Cell is populated, Make row 4 on "DC Projects" hidden
 	Sheets("DC Project").Columns("ad").EntireColumn.Hidden = True
 	Sheets("DC Project").Columns("af").EntireColumn.Hidden = True
 	Sheets("DC Project").Columns("ah").EntireColumn.Hidden = True
 	Sheets("DC Project").Columns("aj").EntireColumn.Hidden = True
 End If
 End Sub

Don't understand the comments about row 4.

 

[Max1616]

Try this:

Sub KW()

If Sheets("Contacts").Range("B13") = "" Or Sheets("Contacts").Range("B13") = "no" Then
    Sheets("DC Projects").Range("AD1,AF1,AH1,AJ1").EntireColumn.Hidden = True
Else
    Sheets("DC Projects").Range("AD1,AF1,AH1,AJ1").EntireColumn.Hidden = False
End If

End Sub

 

[kw127533]

Thanks!! Sorry about the row 4 comments I forgot to update them from another bit of code I used :/

 

[JLGWhiz]

Thanks!! Sorry about the row 4 comments I forgot to update them from another bit of code I used :/

Appreciate the feedback,
Regards, JLG