SaraWitch
Active Member
- Joined
- Sep 29, 2015
- Messages
- 322
- Office Version
- 365
- Platform
- Windows
Hello peeps,
I found a couple of formulas to make a shape disappear and reappear based on cell data. I have inserted a Check Box and linked it to cell U11. The formulas are in the sheet VBA but neither are working and I'm not sure what I'm doing wrong...? (I've renamed my shape to 'InstructionsCover'.)
VBA 1:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$U$11" Then
Sheet2.Shapes("InstructionsCover").Visible = True
Else
Sheet2.Shapes("InstructionsCover").Visible = False
End If
End Sub
VBA 2:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("$U$11") = "FALSE" Then
Sheet2.Shapes("InstructionsCover").Visible = msoTrue
End If
If Range("$U$11") = "TRUE" Then
Sheet2.Shapes("InstructionsCover").Visible = msoFalse
End If
End Sub
Any help would be appreciated
I found a couple of formulas to make a shape disappear and reappear based on cell data. I have inserted a Check Box and linked it to cell U11. The formulas are in the sheet VBA but neither are working and I'm not sure what I'm doing wrong...? (I've renamed my shape to 'InstructionsCover'.)
VBA 1:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$U$11" Then
Sheet2.Shapes("InstructionsCover").Visible = True
Else
Sheet2.Shapes("InstructionsCover").Visible = False
End If
End Sub
VBA 2:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("$U$11") = "FALSE" Then
Sheet2.Shapes("InstructionsCover").Visible = msoTrue
End If
If Range("$U$11") = "TRUE" Then
Sheet2.Shapes("InstructionsCover").Visible = msoFalse
End If
End Sub
Any help would be appreciated