VBA Hiding and displaying slicers

[chipgiii]

I am trying provide the ability to hide and show slicers using a check box. And for some reason it not working? Not very good, no I am horrible in VBA, so the question may be a dumb one. Here is what I have:

Sub HideShowObjects()  If ActiveSheet.Range("AF1").Value Then
       ActiveSheet.Shapes("Region").Visible = True
       ActiveSheet.Shapes("2014 Carryover").Visible = True
       ActiveSheet.Shapes("Capitalized 2015 USD").Visible = True
       ActiveSheet.Shapes("Sub Function 1").Visible = True
  Else
       ActiveSheet.Shapes("Region").Visible = False
       ActiveSheet.Shapes("2014 Carryover").Visible = False
       ActiveSheet.Shapes("Capitalized 2015 USD").Visible = False
       ActiveSheet.Shapes("Sub Function 1").Visible = False
       
  End If
End Sub

 

[Reggie74]

The BIG question i have is .... What is in Range("AF1") ??

I am trying provide the ability to hide and show slicers using a check box. And for some reason it not working? Not very good, no I am horrible in VBA, so the question may be a dumb one. Here is what I have:

Sub HideShowObjects()  If ActiveSheet.Range("AF1").Value Then
       ActiveSheet.Shapes("Region").Visible = True
       ActiveSheet.Shapes("2014 Carryover").Visible = True
       ActiveSheet.Shapes("Capitalized 2015 USD").Visible = True
       ActiveSheet.Shapes("Sub Function 1").Visible = True
  Else
       ActiveSheet.Shapes("Region").Visible = False
       ActiveSheet.Shapes("2014 Carryover").Visible = False
       ActiveSheet.Shapes("Capitalized 2015 USD").Visible = False
       ActiveSheet.Shapes("Sub Function 1").Visible = False
       
  End If
End Sub

 

[chipgiii]

Sorry Reggie,

In AF1 I have it showing True/False based on a "Check Box" that returns True and False. So checking it (True) on it should hide shapes, and Un-checking return shapes.

 

[Reggie74]

Try this ... ??

Sub HideShowObjects()
  If ActiveSheet.Range("AF1").Value = "False" Then

Or perhaps this ... ??

Sub HideShowObjects()
  If ActiveSheet.Range("AF1").Value = False Then

Sorry Reggie,

In AF1 I have it showing True/False based on a "Check Box" that returns True and False. So checking it (True) on it should hide shapes, and Un-checking return shapes.

 

[chipgiii]

This is weird. Those two choices didn't work either. It seems the code is not reacting to the checking of the box. I don't understand why, as I have used this same code in the past with a checkbox. I've review everything I can think of and just don't see any reason for it not to work.

 

[Reggie74]

What about ? ....

Sub HideShowObjects()
  If ActiveSheet.Range("AF1").Value = 0 Then

This is weird. Those two choices didn't work either. It seems the code is not reacting to the checking of the box. I don't understand why, as I have used this same code in the past with a checkbox. I've review everything I can think of and just don't see any reason for it not to work.

 

[chipgiii]

I have the file I used to use and it still works that's what is puzzling me. It is as if the code is not seeing or reacting to the check box and the true/false it enters in the cell. I've checked the cell many times to make sure the actual cell and the one in the code are the same. I can hit F5 in the code and it works. The problem is I want the end user to simply hit the check box and the designated boxes disappear and come back when checked. He does not use excel much so I need to keep it simple. I cannot for the life of me figure this out. I have a feeling it is something really minor, but who knows.

 

[chipgiii]

I figured it out. After reviewing my work, I realized I never right clicked on the check box and assigned it to the macro. Feelin' a bit dumb.