Cell referencing

[sanky9192]

I need to hide and unhide the shapes located in din different worksheet based on a cell value which is in other sheet.

For example cell H6 is in the sheet 1 in which the code is written and shapes are in the MassBalanceLSFO sheet.

Both are in single file.

Thanks in advance.



Private Sub Worksheet_Change(ByVal Target As Range)


If Range("H6").Value = "NO" Then


Rows("52:57").EntireRow.Hidden = True
Worksheets("Without GGH").Visible = True
Worksheets("GGH").Visible = False
Worksheets("MassBalanceLSFO").Shapes("WOGGH").Visible = True
Worksheets("MassBalanceLSFO").Shapes("WGGH").Visible = False

ElseIf Range("H6").Value = "YES" Then


Rows("52:57").EntireRow.Hidden = False
Worksheets("Without GGH").Visible = False
Worksheets("GGH").Visible = True
Worksheets("MassBalanceLSFO").Shapes("WOGGH").Visible = False
Worksheets("MassBalanceLSFO").Shapes("WGGH").Visible = True

End If


End Sub

 

[pgc01]

Hi
Welcome to the board

And what is your problem?

Your code seems fine, do you get some error?
What happens that is not what you expect?