Unhide worksheet based on range

[Nanogirl21]

Hi,

I am hoping someone could help.

I am using the below VBA code to unhide/hide a sheet based on a single cell value of "Yes" or "No". How can I adjust my code to include a range?

Example: If “Yes” is in any cells A1, A2, or A3 (A1:A3) unhide “FINAL” worksheet. If “No” or if a cell is BLANK in any cells within the range then hide worksheet called “FINAL”.

If [A1] = "Yes" Then
    Sheets("FINAL").Visible = True
Else
    Sheets("FINAL").Visible = False
End If

End Sub

I tired using the code below, but it does not work if A2 or A3 is No. The sheet "FINAL" should still show because A1 is "Yes".

If [A1] = "Yes" Then
    Sheets("FINAL").Visible = True
Else
    Sheets("FINAL").Visible = False
End If

If [A2] = "Yes" Then
    Sheets("FINAL").Visible = True
Else
    Sheets("FINAL").Visible = False
End If

If [A3] = "Yes" Then
    Sheets("FINAL").Visible = True
Else
    Sheets("FINAL").Visible = False
End If

End Sub

 

[steve the fish]

You can use Or in VBA so your first line could be

If ([A1] = "Yes" Or [B1] = "Yes" Or [C1] = "Yes") Then

Remember that will be looking at the active sheet at the time of execution of the line.

 

[Nanogirl21]

You can use Or in VBA so your first line could be

If ([A1] = "Yes" Or [B1] = "Yes" Or [C1] = "Yes") Then

Remember that will be looking at the active sheet at the time of execution of the line.

This worked. Thank you.