Hide shape with command button

[SaraWitch]

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

 

[My Aswer Is This]

Having a checkbox make a change to a cell will not cause a sheet change event to activate.

 

[My Aswer Is This]

Why not assign the script to the Checkbox?

 

[SaraWitch]

That's what I wanted to do originally, but I couldn't find a formula (or work it out!). How would that look please?

 

[SaraWitch]

I did find this, but it doesn't work for me (does feel closer though!)...?

Private Sub CheckBox1Act()
With Worksheets("Kanban")
If (CheckBox1 = False) Then
ActiveSheet.Shapes("InstructionsCover").Visible = True
Else
If (CheckBox1 = True) Then
ActiveSheet.Shapes("InstructionsCover").Visible = False
End If
End If
End With
End Sub

 

[SaraWitch]

Assigning formula to checkbox hides the shape:

Sub HideSheet()
ActiveSheet.Shapes("InstructionsCover").Visible = False
End Sub

But I need to to unhide also, based on the checkbox... I did try the following, but am tying myself up in knots now!

Sub HideUnhideShape()
If (CheckBox1 = True) Then
ActiveSheet.Shapes("InstructionsCover").Visible = False
Else
If (CheckBox1 = False) Then
ActiveSheet.Shapes("InstructionsCover").Visible = True
End If
End Sub

 

[My Aswer Is This]

I think it should be more like this:
Do not use else statement.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Sheets(2).Range("A1").Value = "Me"
If CheckBox1.Value = False Then Sheets(2).Range("A1").Value = "You"

End Sub

 

[SaraWitch]

I'm sorry, I don't understand this. How does that hide my shape, "InstructionsCover"? And do I put $U$11 in the Range if I link the CheckBox, with = being "TRUE" and "FALSE"?

Apologies for my lack of understanding...

 

[My Aswer Is This]

You should not be using a sheet change again script.
Like I said in my first posting using a Checkbox to change a value in a sheet and then expecting that change to activate a script I do not believe will work.
And why not start out with something simple like if this happens have a message box popup like say hello

Then if that works proceed.

 

[jolivanes]

Goes in the Sheet module.
Change references, like Sheet names etc, as required

Private Sub CheckBox1_Click()
    If Sheets("Sheet1").CheckBox1.Value = True Then
        ActiveSheet.Shapes("InstructionsCover").Visible = False
            Else
        ActiveSheet.Shapes("InstructionsCover").Visible = True
    End If
End Sub

Can be written quite a bit shorter but this is easy to understand and change.