Hide shapes based on cell true or false value

[shelly468]

Hello,

Fairly new to VBA so not sure where to start.

I have 20 seperate rectangle shapes and each rectangle either needs to be visible or not visible based on each individual 20 cells true or false statements (essentially one rectangle per cell). The true or false statements are given by a formula.

 

[Snakehips]

@shelly468 Welcome.
Your code will depend very much upon how your data and shapes are structured / named.

Below is a super simple example of where the true/false cells are A1:A20 and there are rectangles are named "Rectangle 1" "Rectangle 2" etc

Sub RectShow()
Dim Rng As Range
Dim r As Integer
'Range for true and falses
Set Rng = Range("A1:A20")

On Error Resume Next  ' Prevent lack of true false causing error
'loop to set visibility to tue or false as per cells
'Assumes rectanglename suffix =cell row
For r = 1 To 20
    ActiveSheet.Shapes("Rectangle " & r).Visible = Range("A" & r)
Next r
On Error GoTo 0  ' reset error handling to normal
End Sub

Hope that gets you started.
If you further need help then you must try and further illustrate your setup.