Hiding a column based on 2 or more cell values

[excelfan2010]

Hi,

I am trying to hide column 'E' when either cell C8 or C16 is empty and show it when both cells are completed. The following code doesn't quite work.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$16" And Target.Value = "" Or Target.Address = "$C$8" And Target.Value = "" Then
Range("E:E").EntireColumn.Hidden = True

ElseIf (Target.Address = "$C$16" And Target.Value <> "") And (Target.Address = "$C$8" And Target.Value <> "") Then
Range("E:E").EntireColumn.Hidden = False

End If
End Sub

I think its to do with the 'And' in the ElseIf statement but I don't know much about VBA so I could do with some help. Thanks

[blane245]

Welcome to the forum!

First, you need to use the "code" tags around your code. Edit your post and you can fix it.

Second, here is a solution to your problem. Since the Target variable is for only a single range, your And is not working. This solution checks the C8 and C16 cells directly without using Target.

Private Sub Worksheet_Change(ByVal Target As Range)
If (Me.Cells(16, 3).Value <> "" And Me.Cells(8, 3).Value <> "") Then
    Range("E:E").EntireColumn.Hidden = True
Else
    Range("E:E").EntireColumn.Hidden = False

End If

End Sub

[excelfan2010]

Thanks Blane, it works perfectly!