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
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