Reducing redundant code

T

TweetingCynical

New Member
Joined
Apr 29, 2020
Messages
11
Office Version
  1. 2016
Platform
  1. MacOS
Hi All,

I am a relative novice to vba. I am wondering if someone might help me reduce my code as I know an awful lot of it is just making the engine repeat things it's already done. Your help is greatly appreciated:

VBA Code: 
Sub Show1000()

ActiveSheet.Shapes("1000x9").Visible = True
ActiveSheet.Shapes("1000x8").Visible = True
ActiveSheet.Shapes("1000x7").Visible = True
ActiveSheet.Shapes("1000x6").Visible = True
ActiveSheet.Shapes("1000x5").Visible = True
ActiveSheet.Shapes("1000x4").Visible = True
ActiveSheet.Shapes("1000x3").Visible = True
ActiveSheet.Shapes("1000x2").Visible = True
ActiveSheet.Shapes("1000x1").Visible = True
ActiveSheet.Shapes("P1000x9").Visible = True
ActiveSheet.Shapes("P1000x8").Visible = True
ActiveSheet.Shapes("P1000x7").Visible = True
ActiveSheet.Shapes("P1000x6").Visible = True
ActiveSheet.Shapes("P1000x5").Visible = True
ActiveSheet.Shapes("P1000x4").Visible = True
ActiveSheet.Shapes("P1000x3").Visible = True
ActiveSheet.Shapes("P1000x2").Visible = True
ActiveSheet.Shapes("P1000x1").Visible = True

End Sub

Sub Show100()

ActiveSheet.Shapes("100x9").Visible = True
ActiveSheet.Shapes("100x8").Visible = True
ActiveSheet.Shapes("100x7").Visible = True
ActiveSheet.Shapes("100x6").Visible = True
ActiveSheet.Shapes("100x5").Visible = True
ActiveSheet.Shapes("100x4").Visible = True
ActiveSheet.Shapes("100x3").Visible = True
ActiveSheet.Shapes("100x2").Visible = True
ActiveSheet.Shapes("100x1").Visible = True
ActiveSheet.Shapes("P100x9").Visible = True
ActiveSheet.Shapes("P100x8").Visible = True
ActiveSheet.Shapes("P100x7").Visible = True
ActiveSheet.Shapes("P100x6").Visible = True
ActiveSheet.Shapes("P100x5").Visible = True
ActiveSheet.Shapes("P100x4").Visible = True
ActiveSheet.Shapes("P100x3").Visible = True
ActiveSheet.Shapes("P100x2").Visible = True
ActiveSheet.Shapes("P100x1").Visible = True

End Sub

Sub Show10()

ActiveSheet.Shapes("10x9").Visible = True
ActiveSheet.Shapes("10x8").Visible = True
ActiveSheet.Shapes("10x7").Visible = True
ActiveSheet.Shapes("10x6").Visible = True
ActiveSheet.Shapes("10x5").Visible = True
ActiveSheet.Shapes("10x4").Visible = True
ActiveSheet.Shapes("10x3").Visible = True
ActiveSheet.Shapes("10x2").Visible = True
ActiveSheet.Shapes("10x1").Visible = True
ActiveSheet.Shapes("P10x9").Visible = True
ActiveSheet.Shapes("P10x8").Visible = True
ActiveSheet.Shapes("P10x7").Visible = True
ActiveSheet.Shapes("P10x6").Visible = True
ActiveSheet.Shapes("P10x5").Visible = True
ActiveSheet.Shapes("P10x4").Visible = True
ActiveSheet.Shapes("P10x3").Visible = True
ActiveSheet.Shapes("P10x2").Visible = True
ActiveSheet.Shapes("P10x1").Visible = True

End Sub

Sub Show1()

ActiveSheet.Shapes("1x9").Visible = True
ActiveSheet.Shapes("1x8").Visible = True
ActiveSheet.Shapes("1x7").Visible = True
ActiveSheet.Shapes("1x6").Visible = True
ActiveSheet.Shapes("1x5").Visible = True
ActiveSheet.Shapes("1x4").Visible = True
ActiveSheet.Shapes("1x3").Visible = True
ActiveSheet.Shapes("1x2").Visible = True
ActiveSheet.Shapes("1x1").Visible = True
ActiveSheet.Shapes("P1x9").Visible = True
ActiveSheet.Shapes("P1x8").Visible = True
ActiveSheet.Shapes("P1x7").Visible = True
ActiveSheet.Shapes("P1x6").Visible = True
ActiveSheet.Shapes("P1x5").Visible = True
ActiveSheet.Shapes("P1x4").Visible = True
ActiveSheet.Shapes("P1x3").Visible = True
ActiveSheet.Shapes("P1x2").Visible = True
ActiveSheet.Shapes("P1x1").Visible = True

End Sub


Sub Hide_1000()

Worksheets("Representations").Select
Show1000
Range("Q1").Select

If ActiveCell.Value = 9 Then
    ActiveSheet.Shapes("1000x9").Visible = True
    ActiveSheet.Shapes("P1000x9").Visible = True
    ElseIf ActiveCell.Value = 8 Then
        ActiveSheet.Shapes("1000x9").Visible = False
        ActiveSheet.Shapes("P1000x9").Visible = True
        ElseIf ActiveCell.Value = 7 Then
            ActiveSheet.Shapes("1000x9").Visible = False
            ActiveSheet.Shapes("1000x8").Visible = False
            ActiveSheet.Shapes("P1000x9").Visible = False
            ActiveSheet.Shapes("P1000x8").Visible = False
            ElseIf ActiveCell.Value = 6 Then
                ActiveSheet.Shapes("1000x9").Visible = False
                ActiveSheet.Shapes("1000x8").Visible = False
                ActiveSheet.Shapes("1000x7").Visible = False
                ActiveSheet.Shapes("P1000x9").Visible = False
                ActiveSheet.Shapes("P1000x8").Visible = False
                ActiveSheet.Shapes("P1000x7").Visible = False
                    ElseIf ActiveCell.Value = 5 Then
                        ActiveSheet.Shapes("1000x9").Visible = False
                        ActiveSheet.Shapes("1000x8").Visible = False
                        ActiveSheet.Shapes("1000x7").Visible = False
                        ActiveSheet.Shapes("1000x6").Visible = False
                        ActiveSheet.Shapes("P1000x9").Visible = False
                        ActiveSheet.Shapes("P1000x8").Visible = False
                        ActiveSheet.Shapes("P1000x7").Visible = False
                        ActiveSheet.Shapes("P1000x6").Visible = False
                            ElseIf ActiveCell.Value = 4 Then
                                ActiveSheet.Shapes("1000x9").Visible = False
                                ActiveSheet.Shapes("1000x8").Visible = False
                                ActiveSheet.Shapes("1000x7").Visible = False
                                ActiveSheet.Shapes("1000x6").Visible = False
                                ActiveSheet.Shapes("1000x5").Visible = False
                                ActiveSheet.Shapes("P1000x9").Visible = False
                                ActiveSheet.Shapes("P1000x8").Visible = False
                                ActiveSheet.Shapes("P1000x7").Visible = False
                                ActiveSheet.Shapes("P1000x6").Visible = False
                                ActiveSheet.Shapes("P1000x5").Visible = False
                                ElseIf ActiveCell.Value = 3 Then
                                    ActiveSheet.Shapes("1000x9").Visible = False
                                    ActiveSheet.Shapes("1000x8").Visible = False
                                    ActiveSheet.Shapes("1000x7").Visible = False
                                    ActiveSheet.Shapes("1000x6").Visible = False
                                    ActiveSheet.Shapes("1000x5").Visible = False
                                    ActiveSheet.Shapes("1000x4").Visible = False
                                    ActiveSheet.Shapes("P1000x9").Visible = False
                                    ActiveSheet.Shapes("P1000x8").Visible = False
                                    ActiveSheet.Shapes("P1000x7").Visible = False
                                    ActiveSheet.Shapes("P1000x6").Visible = False
                                    ActiveSheet.Shapes("P1000x5").Visible = False
                                    ActiveSheet.Shapes("P1000x4").Visible = False
                                    ElseIf ActiveCell.Value = 2 Then
                                        ActiveSheet.Shapes("1000x9").Visible = False
                                        ActiveSheet.Shapes("1000x8").Visible = False
                                        ActiveSheet.Shapes("1000x7").Visible = False
                                        ActiveSheet.Shapes("1000x6").Visible = False
                                        ActiveSheet.Shapes("1000x5").Visible = False
                                        ActiveSheet.Shapes("1000x4").Visible = False
                                        ActiveSheet.Shapes("1000x3").Visible = False
                                        ActiveSheet.Shapes("P1000x9").Visible = False
                                        ActiveSheet.Shapes("P1000x8").Visible = False
                                        ActiveSheet.Shapes("P1000x7").Visible = False
                                        ActiveSheet.Shapes("P1000x6").Visible = False
                                        ActiveSheet.Shapes("P1000x5").Visible = False
                                        ActiveSheet.Shapes("P1000x4").Visible = False
                                        ActiveSheet.Shapes("P1000x3").Visible = False
                                        ElseIf ActiveCell.Value = 1 Then
                                            ActiveSheet.Shapes("1000x9").Visible = False
                                            ActiveSheet.Shapes("1000x8").Visible = False
                                            ActiveSheet.Shapes("1000x7").Visible = False
                                            ActiveSheet.Shapes("1000x6").Visible = False
                                            ActiveSheet.Shapes("1000x5").Visible = False
                                            ActiveSheet.Shapes("1000x4").Visible = False
                                            ActiveSheet.Shapes("1000x3").Visible = False
                                            ActiveSheet.Shapes("1000x2").Visible = False
                                            ActiveSheet.Shapes("P1000x9").Visible = False
                                            ActiveSheet.Shapes("P1000x8").Visible = False
                                            ActiveSheet.Shapes("P1000x7").Visible = False
                                            ActiveSheet.Shapes("P1000x6").Visible = False
                                            ActiveSheet.Shapes("P1000x5").Visible = False
                                            ActiveSheet.Shapes("P1000x4").Visible = False
                                            ActiveSheet.Shapes("P1000x3").Visible = False
                                            ActiveSheet.Shapes("P1000x2").Visible = False
                                            ElseIf ActiveCell.Value = 0 Then
                                                ActiveSheet.Shapes("1000x9").Visible = False
                                                ActiveSheet.Shapes("1000x8").Visible = False
                                                ActiveSheet.Shapes("1000x7").Visible = False
                                                ActiveSheet.Shapes("1000x6").Visible = False
                                                ActiveSheet.Shapes("1000x5").Visible = False
                                                ActiveSheet.Shapes("1000x4").Visible = False
                                                ActiveSheet.Shapes("1000x3").Visible = False
                                                ActiveSheet.Shapes("1000x2").Visible = False
                                                ActiveSheet.Shapes("1000x1").Visible = False
                                                ActiveSheet.Shapes("P1000x9").Visible = False
                                                ActiveSheet.Shapes("P1000x8").Visible = False
                                                ActiveSheet.Shapes("P1000x7").Visible = False
                                                ActiveSheet.Shapes("P1000x6").Visible = False
                                                ActiveSheet.Shapes("P1000x5").Visible = False
                                                ActiveSheet.Shapes("P1000x4").Visible = False
                                                ActiveSheet.Shapes("P1000x3").Visible = False
                                                ActiveSheet.Shapes("P1000x2").Visible = False
                                                ActiveSheet.Shapes("P1000x1").Visible = False
                                            End If

                                                                            
End Sub

Sub Hide_100()

Worksheets("Representations").Select
Show100
Range("R1").Select

If ActiveCell.Value = 9 Then
    ActiveSheet.Shapes("100x9").Visible = True
    ActiveSheet.Shapes("P100x9").Visible = True
    ElseIf ActiveCell.Value = 8 Then
        ActiveSheet.Shapes("100x9").Visible = False
        ActiveSheet.Shapes("P100x9").Visible = True
        ElseIf ActiveCell.Value = 7 Then
            ActiveSheet.Shapes("100x9").Visible = False
            ActiveSheet.Shapes("100x8").Visible = False
            ActiveSheet.Shapes("P100x9").Visible = False
            ActiveSheet.Shapes("P100x8").Visible = False
            ElseIf ActiveCell.Value = 6 Then
                ActiveSheet.Shapes("100x9").Visible = False
                ActiveSheet.Shapes("100x8").Visible = False
                ActiveSheet.Shapes("100x7").Visible = False
                ActiveSheet.Shapes("P100x9").Visible = False
                ActiveSheet.Shapes("P100x8").Visible = False
                ActiveSheet.Shapes("P100x7").Visible = False
                    ElseIf ActiveCell.Value = 5 Then
                        ActiveSheet.Shapes("100x9").Visible = False
                        ActiveSheet.Shapes("100x8").Visible = False
                        ActiveSheet.Shapes("100x7").Visible = False
                        ActiveSheet.Shapes("100x6").Visible = False
                        ActiveSheet.Shapes("P100x9").Visible = False
                        ActiveSheet.Shapes("P100x8").Visible = False
                        ActiveSheet.Shapes("P100x7").Visible = False
                        ActiveSheet.Shapes("P100x6").Visible = False
                            ElseIf ActiveCell.Value = 4 Then
                                ActiveSheet.Shapes("100x9").Visible = False
                                ActiveSheet.Shapes("100x8").Visible = False
                                ActiveSheet.Shapes("100x7").Visible = False
                                ActiveSheet.Shapes("100x6").Visible = False
                                ActiveSheet.Shapes("100x5").Visible = False
                                ActiveSheet.Shapes("P100x9").Visible = False
                                ActiveSheet.Shapes("P100x8").Visible = False
                                ActiveSheet.Shapes("P100x7").Visible = False
                                ActiveSheet.Shapes("P100x6").Visible = False
                                ActiveSheet.Shapes("P100x5").Visible = False
                                ElseIf ActiveCell.Value = 3 Then
                                    ActiveSheet.Shapes("100x9").Visible = False
                                    ActiveSheet.Shapes("100x8").Visible = False
                                    ActiveSheet.Shapes("100x7").Visible = False
                                    ActiveSheet.Shapes("100x6").Visible = False
                                    ActiveSheet.Shapes("100x5").Visible = False
                                    ActiveSheet.Shapes("100x4").Visible = False
                                    ActiveSheet.Shapes("P100x9").Visible = False
                                    ActiveSheet.Shapes("P100x8").Visible = False
                                    ActiveSheet.Shapes("P100x7").Visible = False
                                    ActiveSheet.Shapes("P100x6").Visible = False
                                    ActiveSheet.Shapes("P100x5").Visible = False
                                    ActiveSheet.Shapes("P100x4").Visible = False
                                    ElseIf ActiveCell.Value = 2 Then
                                        ActiveSheet.Shapes("100x9").Visible = False
                                        ActiveSheet.Shapes("100x8").Visible = False
                                        ActiveSheet.Shapes("100x7").Visible = False
                                        ActiveSheet.Shapes("100x6").Visible = False
                                        ActiveSheet.Shapes("100x5").Visible = False
                                        ActiveSheet.Shapes("100x4").Visible = False
                                        ActiveSheet.Shapes("100x3").Visible = False
                                        ActiveSheet.Shapes("P100x9").Visible = False
                                        ActiveSheet.Shapes("P100x8").Visible = False
                                        ActiveSheet.Shapes("P100x7").Visible = False
                                        ActiveSheet.Shapes("P100x6").Visible = False
                                        ActiveSheet.Shapes("P100x5").Visible = False
                                        ActiveSheet.Shapes("P100x4").Visible = False
                                        ActiveSheet.Shapes("P100x3").Visible = False
                                        ElseIf ActiveCell.Value = 1 Then
                                            ActiveSheet.Shapes("100x9").Visible = False
                                            ActiveSheet.Shapes("100x8").Visible = False
                                            ActiveSheet.Shapes("100x7").Visible = False
                                            ActiveSheet.Shapes("100x6").Visible = False
                                            ActiveSheet.Shapes("100x5").Visible = False
                                            ActiveSheet.Shapes("100x4").Visible = False
                                            ActiveSheet.Shapes("100x3").Visible = False
                                            ActiveSheet.Shapes("100x2").Visible = False
                                            ActiveSheet.Shapes("P100x9").Visible = False
                                            ActiveSheet.Shapes("P100x8").Visible = False
                                            ActiveSheet.Shapes("P100x7").Visible = False
                                            ActiveSheet.Shapes("P100x6").Visible = False
                                            ActiveSheet.Shapes("P100x5").Visible = False
                                            ActiveSheet.Shapes("P100x4").Visible = False
                                            ActiveSheet.Shapes("P100x3").Visible = False
                                            ActiveSheet.Shapes("P100x2").Visible = False
                                            ElseIf ActiveCell.Value = 0 Then
                                                ActiveSheet.Shapes("100x9").Visible = False
                                                ActiveSheet.Shapes("100x8").Visible = False
                                                ActiveSheet.Shapes("100x7").Visible = False
                                                ActiveSheet.Shapes("100x6").Visible = False
                                                ActiveSheet.Shapes("100x5").Visible = False
                                                ActiveSheet.Shapes("100x4").Visible = False
                                                ActiveSheet.Shapes("100x3").Visible = False
                                                ActiveSheet.Shapes("100x2").Visible = False
                                                ActiveSheet.Shapes("100x1").Visible = False
                                                ActiveSheet.Shapes("P100x9").Visible = False
                                                ActiveSheet.Shapes("P100x8").Visible = False
                                                ActiveSheet.Shapes("P100x7").Visible = False
                                                ActiveSheet.Shapes("P100x6").Visible = False
                                                ActiveSheet.Shapes("P100x5").Visible = False
                                                ActiveSheet.Shapes("P100x4").Visible = False
                                                ActiveSheet.Shapes("P100x3").Visible = False
                                                ActiveSheet.Shapes("P100x2").Visible = False
                                                ActiveSheet.Shapes("P100x1").Visible = False
                                            End If

                                                                            
End Sub

Sub Hide_10()

Worksheets("Representations").Select
Show10
Range("S1").Select

If ActiveCell.Value = 9 Then
    ActiveSheet.Shapes("10x9").Visible = True
    ActiveSheet.Shapes("P10x9").Visible = True
    ElseIf ActiveCell.Value = 8 Then
        ActiveSheet.Shapes("10x9").Visible = False
        ActiveSheet.Shapes("P10x9").Visible = True
        ElseIf ActiveCell.Value = 7 Then
            ActiveSheet.Shapes("10x9").Visible = False
            ActiveSheet.Shapes("10x8").Visible = False
            ActiveSheet.Shapes("P10x9").Visible = False
            ActiveSheet.Shapes("P10x8").Visible = False
            ElseIf ActiveCell.Value = 6 Then
                ActiveSheet.Shapes("10x9").Visible = False
                ActiveSheet.Shapes("10x8").Visible = False
                ActiveSheet.Shapes("10x7").Visible = False
                ActiveSheet.Shapes("P10x9").Visible = False
                ActiveSheet.Shapes("P10x8").Visible = False
                ActiveSheet.Shapes("P10x7").Visible = False
                    ElseIf ActiveCell.Value = 5 Then
                        ActiveSheet.Shapes("10x9").Visible = False
                        ActiveSheet.Shapes("10x8").Visible = False
                        ActiveSheet.Shapes("10x7").Visible = False
                        ActiveSheet.Shapes("10x6").Visible = False
                        ActiveSheet.Shapes("P10x9").Visible = False
                        ActiveSheet.Shapes("P10x8").Visible = False
                        ActiveSheet.Shapes("P10x7").Visible = False
                        ActiveSheet.Shapes("P10x6").Visible = False
                            ElseIf ActiveCell.Value = 4 Then
                                ActiveSheet.Shapes("10x9").Visible = False
                                ActiveSheet.Shapes("10x8").Visible = False
                                ActiveSheet.Shapes("10x7").Visible = False
                                ActiveSheet.Shapes("10x6").Visible = False
                                ActiveSheet.Shapes("10x5").Visible = False
                                ActiveSheet.Shapes("P10x9").Visible = False
                                ActiveSheet.Shapes("P10x8").Visible = False
                                ActiveSheet.Shapes("P10x7").Visible = False
                                ActiveSheet.Shapes("P10x6").Visible = False
                                ActiveSheet.Shapes("P10x5").Visible = False
                                ElseIf ActiveCell.Value = 3 Then
                                    ActiveSheet.Shapes("10x9").Visible = False
                                    ActiveSheet.Shapes("10x8").Visible = False
                                    ActiveSheet.Shapes("10x7").Visible = False
                                    ActiveSheet.Shapes("10x6").Visible = False
                                    ActiveSheet.Shapes("10x5").Visible = False
                                    ActiveSheet.Shapes("10x4").Visible = False
                                    ActiveSheet.Shapes("P10x9").Visible = False
                                    ActiveSheet.Shapes("P10x8").Visible = False
                                    ActiveSheet.Shapes("P10x7").Visible = False
                                    ActiveSheet.Shapes("P10x6").Visible = False
                                    ActiveSheet.Shapes("P10x5").Visible = False
                                    ActiveSheet.Shapes("P10x4").Visible = False
                                    ElseIf ActiveCell.Value = 2 Then
                                        ActiveSheet.Shapes("10x9").Visible = False
                                        ActiveSheet.Shapes("10x8").Visible = False
                                        ActiveSheet.Shapes("10x7").Visible = False
                                        ActiveSheet.Shapes("10x6").Visible = False
                                        ActiveSheet.Shapes("10x5").Visible = False
                                        ActiveSheet.Shapes("10x4").Visible = False
                                        ActiveSheet.Shapes("10x3").Visible = False
                                        ActiveSheet.Shapes("P10x9").Visible = False
                                        ActiveSheet.Shapes("P10x8").Visible = False
                                        ActiveSheet.Shapes("P10x7").Visible = False
                                        ActiveSheet.Shapes("P10x6").Visible = False
                                        ActiveSheet.Shapes("P10x5").Visible = False
                                        ActiveSheet.Shapes("P10x4").Visible = False
                                        ActiveSheet.Shapes("P10x3").Visible = False
                                        ElseIf ActiveCell.Value = 1 Then
                                            ActiveSheet.Shapes("10x9").Visible = False
                                            ActiveSheet.Shapes("10x8").Visible = False
                                            ActiveSheet.Shapes("10x7").Visible = False
                                            ActiveSheet.Shapes("10x6").Visible = False
                                            ActiveSheet.Shapes("10x5").Visible = False
                                            ActiveSheet.Shapes("10x4").Visible = False
                                            ActiveSheet.Shapes("10x3").Visible = False
                                            ActiveSheet.Shapes("10x2").Visible = False
                                            ActiveSheet.Shapes("P10x9").Visible = False
                                            ActiveSheet.Shapes("P10x8").Visible = False
                                            ActiveSheet.Shapes("P10x7").Visible = False
                                            ActiveSheet.Shapes("P10x6").Visible = False
                                            ActiveSheet.Shapes("P10x5").Visible = False
                                            ActiveSheet.Shapes("P10x4").Visible = False
                                            ActiveSheet.Shapes("P10x3").Visible = False
                                            ActiveSheet.Shapes("P10x2").Visible = False
                                            ElseIf ActiveCell.Value = 0 Then
                                                ActiveSheet.Shapes("10x9").Visible = False
                                                ActiveSheet.Shapes("10x8").Visible = False
                                                ActiveSheet.Shapes("10x7").Visible = False
                                                ActiveSheet.Shapes("10x6").Visible = False
                                                ActiveSheet.Shapes("10x5").Visible = False
                                                ActiveSheet.Shapes("10x4").Visible = False
                                                ActiveSheet.Shapes("10x3").Visible = False
                                                ActiveSheet.Shapes("10x2").Visible = False
                                                ActiveSheet.Shapes("10x1").Visible = False
                                                ActiveSheet.Shapes("P10x9").Visible = False
                                                ActiveSheet.Shapes("P10x8").Visible = False
                                                ActiveSheet.Shapes("P10x7").Visible = False
                                                ActiveSheet.Shapes("P10x6").Visible = False
                                                ActiveSheet.Shapes("P10x5").Visible = False
                                                ActiveSheet.Shapes("P10x4").Visible = False
                                                ActiveSheet.Shapes("P10x3").Visible = False
                                                ActiveSheet.Shapes("P10x2").Visible = False
                                                ActiveSheet.Shapes("P10x1").Visible = False
                                            End If

                                                                            
End Sub

Sub Hide_1()

Worksheets("Representations").Select
Show1
Range("T1").Select

If ActiveCell.Value = 9 Then
    ActiveSheet.Shapes("1x9").Visible = True
    ActiveSheet.Shapes("P1x9").Visible = True
    ElseIf ActiveCell.Value = 8 Then
        ActiveSheet.Shapes("1x9").Visible = False
        ActiveSheet.Shapes("P1x9").Visible = True
        ElseIf ActiveCell.Value = 7 Then
            ActiveSheet.Shapes("1x9").Visible = False
            ActiveSheet.Shapes("1x8").Visible = False
            ActiveSheet.Shapes("P1x9").Visible = False
            ActiveSheet.Shapes("P1x8").Visible = False
            ElseIf ActiveCell.Value = 6 Then
                ActiveSheet.Shapes("1x9").Visible = False
                ActiveSheet.Shapes("1x8").Visible = False
                ActiveSheet.Shapes("1x7").Visible = False
                ActiveSheet.Shapes("P1x9").Visible = False
                ActiveSheet.Shapes("P1x8").Visible = False
                ActiveSheet.Shapes("P1x7").Visible = False
                    ElseIf ActiveCell.Value = 5 Then
                        ActiveSheet.Shapes("1x9").Visible = False
                        ActiveSheet.Shapes("1x8").Visible = False
                        ActiveSheet.Shapes("1x7").Visible = False
                        ActiveSheet.Shapes("1x6").Visible = False
                        ActiveSheet.Shapes("P1x9").Visible = False
                        ActiveSheet.Shapes("P1x8").Visible = False
                        ActiveSheet.Shapes("P1x7").Visible = False
                        ActiveSheet.Shapes("P1x6").Visible = False
                            ElseIf ActiveCell.Value = 4 Then
                                ActiveSheet.Shapes("1x9").Visible = False
                                ActiveSheet.Shapes("1x8").Visible = False
                                ActiveSheet.Shapes("1x7").Visible = False
                                ActiveSheet.Shapes("1x6").Visible = False
                                ActiveSheet.Shapes("1x5").Visible = False
                                ActiveSheet.Shapes("P1x9").Visible = False
                                ActiveSheet.Shapes("P1x8").Visible = False
                                ActiveSheet.Shapes("P1x7").Visible = False
                                ActiveSheet.Shapes("P1x6").Visible = False
                                ActiveSheet.Shapes("P1x5").Visible = False
                                ElseIf ActiveCell.Value = 3 Then
                                    ActiveSheet.Shapes("1x9").Visible = False
                                    ActiveSheet.Shapes("1x8").Visible = False
                                    ActiveSheet.Shapes("1x7").Visible = False
                                    ActiveSheet.Shapes("1x6").Visible = False
                                    ActiveSheet.Shapes("1x5").Visible = False
                                    ActiveSheet.Shapes("1x4").Visible = False
                                    ActiveSheet.Shapes("P1x9").Visible = False
                                    ActiveSheet.Shapes("P1x8").Visible = False
                                    ActiveSheet.Shapes("P1x7").Visible = False
                                    ActiveSheet.Shapes("P1x6").Visible = False
                                    ActiveSheet.Shapes("P1x5").Visible = False
                                    ActiveSheet.Shapes("P1x4").Visible = False
                                    ElseIf ActiveCell.Value = 2 Then
                                        ActiveSheet.Shapes("1x9").Visible = False
                                        ActiveSheet.Shapes("1x8").Visible = False
                                        ActiveSheet.Shapes("1x7").Visible = False
                                        ActiveSheet.Shapes("1x6").Visible = False
                                        ActiveSheet.Shapes("1x5").Visible = False
                                        ActiveSheet.Shapes("1x4").Visible = False
                                        ActiveSheet.Shapes("1x3").Visible = False
                                        ActiveSheet.Shapes("P1x9").Visible = False
                                        ActiveSheet.Shapes("P1x8").Visible = False
                                        ActiveSheet.Shapes("P1x7").Visible = False
                                        ActiveSheet.Shapes("P1x6").Visible = False
                                        ActiveSheet.Shapes("P1x5").Visible = False
                                        ActiveSheet.Shapes("P1x4").Visible = False
                                        ActiveSheet.Shapes("P1x3").Visible = False
                                        ElseIf ActiveCell.Value = 1 Then
                                            ActiveSheet.Shapes("1x9").Visible = False
                                            ActiveSheet.Shapes("1x8").Visible = False
                                            ActiveSheet.Shapes("1x7").Visible = False
                                            ActiveSheet.Shapes("1x6").Visible = False
                                            ActiveSheet.Shapes("1x5").Visible = False
                                            ActiveSheet.Shapes("1x4").Visible = False
                                            ActiveSheet.Shapes("1x3").Visible = False
                                            ActiveSheet.Shapes("1x2").Visible = False
                                            ActiveSheet.Shapes("P1x9").Visible = False
                                            ActiveSheet.Shapes("P1x8").Visible = False
                                            ActiveSheet.Shapes("P1x7").Visible = False
                                            ActiveSheet.Shapes("P1x6").Visible = False
                                            ActiveSheet.Shapes("P1x5").Visible = False
                                            ActiveSheet.Shapes("P1x4").Visible = False
                                            ActiveSheet.Shapes("P1x3").Visible = False
                                            ActiveSheet.Shapes("P1x2").Visible = False
                                            ElseIf ActiveCell.Value = 0 Then
                                                ActiveSheet.Shapes("1x9").Visible = False
                                                ActiveSheet.Shapes("1x8").Visible = False
                                                ActiveSheet.Shapes("1x7").Visible = False
                                                ActiveSheet.Shapes("1x6").Visible = False
                                                ActiveSheet.Shapes("1x5").Visible = False
                                                ActiveSheet.Shapes("1x4").Visible = False
                                                ActiveSheet.Shapes("1x3").Visible = False
                                                ActiveSheet.Shapes("1x2").Visible = False
                                                ActiveSheet.Shapes("1x1").Visible = False
                                                ActiveSheet.Shapes("P1x9").Visible = False
                                                ActiveSheet.Shapes("P1x8").Visible = False
                                                ActiveSheet.Shapes("P1x7").Visible = False
                                                ActiveSheet.Shapes("P1x6").Visible = False
                                                ActiveSheet.Shapes("P1x5").Visible = False
                                                ActiveSheet.Shapes("P1x4").Visible = False
                                                ActiveSheet.Shapes("P1x3").Visible = False
                                                ActiveSheet.Shapes("P1x2").Visible = False
                                                ActiveSheet.Shapes("P1x1").Visible = False
                                            End If

                                                                            
End Sub

Sub ProtectWB()
ThisWorkbook.Protect Password:="UKExceED", Structure:=True, Windows:=True
End Sub

Sub UnProtectWB()
ThisWorkbook.UnProtect Password:="UKExceED"
End Sub

Sub ShowAllCards()

ActiveSheet.Shapes("1000C").Visible = False
ActiveSheet.Shapes("100C").Visible = False
ActiveSheet.Shapes("10C").Visible = False
ActiveSheet.Shapes("1C").Visible = False
ActiveSheet.Shapes("TotalC").Visible = False
ActiveSheet.Buttons("ShowAllC").Visible = False
ActiveSheet.Buttons("HideAllC").Visible = True
ActiveSheet.Buttons("ShowTotal").Visible = False
ActiveSheet.Buttons("HideTotal").Visible = True
ActiveSheet.Buttons("Show1000C").Visible = False
ActiveSheet.Buttons("Hide1000C").Visible = True
ActiveSheet.Buttons("Show100C").Visible = False
ActiveSheet.Buttons("Hide100C").Visible = True
ActiveSheet.Buttons("Show10C").Visible = False
ActiveSheet.Buttons("Hide10C").Visible = True
ActiveSheet.Buttons("Show1C").Visible = False
ActiveSheet.Buttons("Hide1C").Visible = True

End Sub

Sub ShowAllImages()

ActiveSheet.Shapes("1000R").Visible = False
ActiveSheet.Shapes("100R").Visible = False
ActiveSheet.Shapes("10R").Visible = False
ActiveSheet.Shapes("1R").Visible = False
ActiveSheet.Buttons("ShowAllR").Visible = False
ActiveSheet.Buttons("HideAllR").Visible = True
ActiveSheet.Buttons("Show1000R").Visible = False
ActiveSheet.Buttons("Hide1000R").Visible = True
ActiveSheet.Buttons("Show100R").Visible = False
ActiveSheet.Buttons("Hide100R").Visible = True
ActiveSheet.Buttons("Show10R").Visible = False
ActiveSheet.Buttons("Hide10R").Visible = True
ActiveSheet.Buttons("Show1R").Visible = False
ActiveSheet.Buttons("Hide1R").Visible = True

End Sub

Sub HideAllCards()

ActiveSheet.Shapes("1000C").Visible = True
ActiveSheet.Shapes("100C").Visible = True
ActiveSheet.Shapes("10C").Visible = True
ActiveSheet.Shapes("1C").Visible = True
ActiveSheet.Shapes("TotalC").Visible = True
ActiveSheet.Buttons("HideAllC").Visible = False
ActiveSheet.Buttons("ShowAllC").Visible = True
ActiveSheet.Buttons("ShowTotal").Visible = True
ActiveSheet.Buttons("HideTotal").Visible = False
ActiveSheet.Buttons("Show1000C").Visible = True
ActiveSheet.Buttons("Hide1000C").Visible = False
ActiveSheet.Buttons("Show100C").Visible = True
ActiveSheet.Buttons("Hide100C").Visible = False
ActiveSheet.Buttons("Show10C").Visible = True
ActiveSheet.Buttons("Hide10C").Visible = False
ActiveSheet.Buttons("Show1C").Visible = True
ActiveSheet.Buttons("Hide1C").Visible = False

End Sub

Sub HideAllImages()

ActiveSheet.Shapes("1000R").Visible = True
ActiveSheet.Shapes("100R").Visible = True
ActiveSheet.Shapes("10R").Visible = True
ActiveSheet.Shapes("1R").Visible = True
ActiveSheet.Buttons("HideAllR").Visible = False
ActiveSheet.Buttons("ShowAllR").Visible = True
ActiveSheet.Buttons("Show1000R").Visible = True
ActiveSheet.Buttons("Hide1000R").Visible = False
ActiveSheet.Buttons("Show100R").Visible = True
ActiveSheet.Buttons("Hide100R").Visible = False
ActiveSheet.Buttons("Show10R").Visible = True
ActiveSheet.Buttons("Hide10R").Visible = False
ActiveSheet.Buttons("Show1R").Visible = True
ActiveSheet.Buttons("Hide1R").Visible = False

End Sub

Sub ShowTotalC()

ActiveSheet.Shapes("TotalC").Visible = False
ActiveSheet.Buttons("ShowAllC").Visible = True
ActiveSheet.Buttons("HideAllC").Visible = True
ActiveSheet.Buttons("ShowTotal").Visible = False
ActiveSheet.Buttons("HideTotal").Visible = True

End Sub

Sub HideTotalC()

ActiveSheet.Shapes("TotalC").Visible = True
ActiveSheet.Buttons("ShowAllC").Visible = True
ActiveSheet.Buttons("HideAllC").Visible = True
ActiveSheet.Buttons("ShowTotal").Visible = True
ActiveSheet.Buttons("HideTotal").Visible = False

End Sub

Sub Show1000C()

ActiveSheet.Shapes("1000C").Visible = False
ActiveSheet.Buttons("ShowAllC").Visible = True
ActiveSheet.Buttons("HideAllC").Visible = True
ActiveSheet.Buttons("Show1000C").Visible = False
ActiveSheet.Buttons("Hide1000C").Visible = True

End Sub

Sub Hide1000C()

ActiveSheet.Shapes("1000C").Visible = True
ActiveSheet.Buttons("ShowAllC").Visible = True
ActiveSheet.Buttons("HideAllC").Visible = True
ActiveSheet.Buttons("Show1000C").Visible = True
ActiveSheet.Buttons("Hide1000C").Visible = False

End Sub

Sub Show1000R()

ActiveSheet.Shapes("1000R").Visible = False
ActiveSheet.Buttons("ShowAllR").Visible = True
ActiveSheet.Buttons("HideAllR").Visible = True
ActiveSheet.Buttons("Show1000R").Visible = False
ActiveSheet.Buttons("Hide1000R").Visible = True

End Sub

Sub Hide1000R()

ActiveSheet.Shapes("1000R").Visible = True
ActiveSheet.Buttons("ShowAllR").Visible = True
ActiveSheet.Buttons("HideAllR").Visible = True
ActiveSheet.Buttons("Show1000R").Visible = True
ActiveSheet.Buttons("Hide1000R").Visible = False

End Sub

Sub Show100C()

ActiveSheet.Shapes("100C").Visible = False
ActiveSheet.Buttons("ShowAllC").Visible = True
ActiveSheet.Buttons("HideAllC").Visible = True
ActiveSheet.Buttons("Show100C").Visible = False
ActiveSheet.Buttons("Hide100C").Visible = True

End Sub

Sub Hide100C()

ActiveSheet.Shapes("100C").Visible = True
ActiveSheet.Buttons("ShowAllC").Visible = True
ActiveSheet.Buttons("HideAllC").Visible = True
ActiveSheet.Buttons("Show100C").Visible = True
ActiveSheet.Buttons("Hide100C").Visible = False

End Sub

Sub Show100R()

ActiveSheet.Shapes("100R").Visible = False
ActiveSheet.Buttons("ShowAllR").Visible = True
ActiveSheet.Buttons("HideAllR").Visible = True
ActiveSheet.Buttons("Show100R").Visible = False
ActiveSheet.Buttons("Hide100R").Visible = True

End Sub

Sub Hide100R()

ActiveSheet.Shapes("100R").Visible = True
ActiveSheet.Buttons("ShowAllR").Visible = True
ActiveSheet.Buttons("HideAllR").Visible = True
ActiveSheet.Buttons("Show100R").Visible = True
ActiveSheet.Buttons("Hide100R").Visible = False

End Sub

Sub Show10C()

ActiveSheet.Shapes("10C").Visible = False
ActiveSheet.Buttons("ShowAllC").Visible = True
ActiveSheet.Buttons("HideAllC").Visible = True
ActiveSheet.Buttons("Show10C").Visible = False
ActiveSheet.Buttons("Hide10C").Visible = True

End Sub

Sub Hide10C()

ActiveSheet.Shapes("10C").Visible = True
ActiveSheet.Buttons("ShowAllC").Visible = True
ActiveSheet.Buttons("HideAllC").Visible = True
ActiveSheet.Buttons("Show10C").Visible = True
ActiveSheet.Buttons("Hide10C").Visible = False

End Sub

Sub Show10R()

ActiveSheet.Shapes("10R").Visible = False
ActiveSheet.Buttons("ShowAllR").Visible = True
ActiveSheet.Buttons("HideAllR").Visible = True
ActiveSheet.Buttons("Show10R").Visible = False
ActiveSheet.Buttons("Hide10R").Visible = True

End Sub

Sub Hide10R()

ActiveSheet.Shapes("10R").Visible = True
ActiveSheet.Buttons("ShowAllR").Visible = True
ActiveSheet.Buttons("HideAllR").Visible = True
ActiveSheet.Buttons("Show10R").Visible = True
ActiveSheet.Buttons("Hide10R").Visible = False

End Sub

Sub Show1C()

ActiveSheet.Shapes("1C").Visible = False
ActiveSheet.Buttons("ShowAllC").Visible = True
ActiveSheet.Buttons("HideAllC").Visible = True
ActiveSheet.Buttons("Show1C").Visible = False
ActiveSheet.Buttons("Hide1C").Visible = True

End Sub

Sub Hide1C()

ActiveSheet.Shapes("1C").Visible = True
ActiveSheet.Buttons("ShowAllC").Visible = True
ActiveSheet.Buttons("HideAllC").Visible = True
ActiveSheet.Buttons("Show1C").Visible = True
ActiveSheet.Buttons("Hide1C").Visible = False

End Sub

Sub Show1R()

ActiveSheet.Shapes("1R").Visible = False
ActiveSheet.Buttons("ShowAllR").Visible = True
ActiveSheet.Buttons("HideAllR").Visible = True
ActiveSheet.Buttons("Show1R").Visible = False
ActiveSheet.Buttons("Hide1R").Visible = True

End Sub

Sub Hide1R()

ActiveSheet.Shapes("1R").Visible = True
ActiveSheet.Buttons("ShowAllR").Visible = True
ActiveSheet.Buttons("HideAllR").Visible = True
ActiveSheet.Buttons("Show1R").Visible = True
ActiveSheet.Buttons("Hide1R").Visible = False

End Sub
 

Excel Facts

Excel Joke
Why can't spreadsheets drive cars? They crash too often!
Sort by date Sort by votes
I realise there is a lot there, so I'm not looking for someone to rewrite it all for me, but some tips/pointers would be great.
 
Upvote 0
You could do this - just add to the comma-separated list of shape names.
VBA Code: 
Sub Show1000()

    Dim ShapeName As Variant
    For Each ShapeName In Split("1000x9,1000x8,1000x7", ",")
        ActiveSheet.Shapes(ShapeName).Visible = True
    Next
    
End Sub
 
Upvote 0
John_w said:
You could do this - just add to the comma-separated list of shape names.
VBA Code: 
Sub Show1000()

    Dim ShapeName As Variant
    For Each ShapeName In Split("1000x9,1000x8,1000x7", ",")
        ActiveSheet.Shapes(ShapeName).Visible = True
    Next
   
End Sub
Click to expand...

Thank you so much :)
 
Upvote 0
Should help a little. You should consider writing general subs that you can feed arguments into where possible.
Double check that I didn't mess up the objectives of what you want to do.
VBA Code: 
Sub ShowShapes(Target_Number As Long, Optional Upper_Limit As Long = 0)

Dim INDX As Long

If Upper_Limit = 0 Then Upper_Limit = 9

With ActiveSheet

    For INDX = 1 To Upper_Limit
        .Shapes(Target_Number & "x" & INDX).Visible = True
        .Shapes("P" & Target_Number & "x" & INDX).Visible = True
    Next INDX
    
End With

End Sub

Sub Hide_Shapes(Target_INDX As Long)

Dim WS As Worksheet, Val As Long, INDX As Long

Set WS = Worksheets("Representations")

With WS

    Select Case Target_INDX
    
        Case 1000: Val = .Range("Q1").Value2
        Case 100: Val = .Range("R1").Value2
        Case 10: Val = .Range("S1").Value2
        Case 1: Val = .Range("T1").Value2
        
    End Select
    
    ShowShapes Target_Number:=Target_INDX, Upper_Limit:=Val 'Make shapes less than or equal to Val visible

    Select Case Val
    
        Case 8 'dont need 9 since show shapes already made it visible if val is 9
        
            .Shapes(Target_INDX & "x9").Visible = False
            .Shapes("P" & Target_INDX & "x9").Visible = True
        
        Case Else
        
            For INDX = Val + 1 To 9
                .Shapes(Target_INDX & "x" & INDX).Visible = False
                .Shapes("P" & Target_INDX & "x" & INDX).Visible = False
            Next INDX
            
    End Select

End With
                                                                            
End Sub

Sub ShowAllCards()

Dim NUM(1 To 4) As Variant, X As Long, ID() As String

For X = 1 To 4
    NUM(X) = 1000 / (10 ^ (X - 1)) & "C" '1000,100,10,1
Next X

With ActiveSheet

For X = 1 To 4
    
    .Shapes(NUM(X)).Visible = False
    
    .Buttons("Show" & NUM(X)).Visible = False
    .Buttons("Hide" & NUM(X)).Visible = True
    
Next X
    .Shapes("TotalC").Visible = False
    
    .Buttons("ShowAllC").Visible = False
    .Buttons("HideAllC").Visible = True
    
    .Buttons("ShowTotal").Visible = False
    .Buttons("HideTotal").Visible = True
End With

End Sub
 
Upvote 0
MoshiM said:
Should help a little. You should consider writing general subs that you can feed arguments into where possible.
Double check that I didn't mess up the objectives of what you want to do.
VBA Code: 
Sub ShowShapes(Target_Number As Long, Optional Upper_Limit As Long = 0)

Dim INDX As Long

If Upper_Limit = 0 Then Upper_Limit = 9

With ActiveSheet

    For INDX = 1 To Upper_Limit
        .Shapes(Target_Number & "x" & INDX).Visible = True
        .Shapes("P" & Target_Number & "x" & INDX).Visible = True
    Next INDX
   
End With

End Sub

Sub Hide_Shapes(Target_INDX As Long)

Dim WS As Worksheet, Val As Long, INDX As Long

Set WS = Worksheets("Representations")

With WS

    Select Case Target_INDX
   
        Case 1000: Val = .Range("Q1").Value2
        Case 100: Val = .Range("R1").Value2
        Case 10: Val = .Range("S1").Value2
        Case 1: Val = .Range("T1").Value2
       
    End Select
   
    ShowShapes Target_Number:=Target_INDX, Upper_Limit:=Val 'Make shapes less than or equal to Val visible

    Select Case Val
   
        Case 8 'dont need 9 since show shapes already made it visible if val is 9
       
            .Shapes(Target_INDX & "x9").Visible = False
            .Shapes("P" & Target_INDX & "x9").Visible = True
       
        Case Else
       
            For INDX = Val + 1 To 9
                .Shapes(Target_INDX & "x" & INDX).Visible = False
                .Shapes("P" & Target_INDX & "x" & INDX).Visible = False
            Next INDX
           
    End Select

End With
                                                                           
End Sub

Sub ShowAllCards()

Dim NUM(1 To 4) As Variant, X As Long, ID() As String

For X = 1 To 4
    NUM(X) = 1000 / (10 ^ (X - 1)) & "C" '1000,100,10,1
Next X

With ActiveSheet

For X = 1 To 4
   
    .Shapes(NUM(X)).Visible = False
   
    .Buttons("Show" & NUM(X)).Visible = False
    .Buttons("Hide" & NUM(X)).Visible = True
   
Next X
    .Shapes("TotalC").Visible = False
   
    .Buttons("ShowAllC").Visible = False
    .Buttons("HideAllC").Visible = True
   
    .Buttons("ShowTotal").Visible = False
    .Buttons("HideTotal").Visible = True
End With

End Sub
Click to expand...

Great, thanks... Is this to replace this section:

VBA Code: 
Sub Hide_1000()

Worksheets("Representations").Select
Show1000
Range("Q1").Select

If ActiveCell.Value = 9 Then
    ActiveSheet.Shapes("1000x9").Visible = True
    ActiveSheet.Shapes("P1000x9").Visible = True
    ElseIf ActiveCell.Value = 8 Then
        ActiveSheet.Shapes("1000x9").Visible = False
        ActiveSheet.Shapes("P1000x9").Visible = True
        ElseIf ActiveCell.Value = 7 Then
            ActiveSheet.Shapes("1000x9").Visible = False
            ActiveSheet.Shapes("1000x8").Visible = False
            ActiveSheet.Shapes("P1000x9").Visible = False
            ActiveSheet.Shapes("P1000x8").Visible = False
            ElseIf ActiveCell.Value = 6 Then
                ActiveSheet.Shapes("1000x9").Visible = False
                ActiveSheet.Shapes("1000x8").Visible = False
                ActiveSheet.Shapes("1000x7").Visible = False
                ActiveSheet.Shapes("P1000x9").Visible = False
                ActiveSheet.Shapes("P1000x8").Visible = False
                ActiveSheet.Shapes("P1000x7").Visible = False
                    ElseIf ActiveCell.Value = 5 Then
                        ActiveSheet.Shapes("1000x9").Visible = False
                        ActiveSheet.Shapes("1000x8").Visible = False
                        ActiveSheet.Shapes("1000x7").Visible = False
                        ActiveSheet.Shapes("1000x6").Visible = False
                        ActiveSheet.Shapes("P1000x9").Visible = False
                        ActiveSheet.Shapes("P1000x8").Visible = False
                        ActiveSheet.Shapes("P1000x7").Visible = False
                        ActiveSheet.Shapes("P1000x6").Visible = False
                            ElseIf ActiveCell.Value = 4 Then
                                ActiveSheet.Shapes("1000x9").Visible = False
                                ActiveSheet.Shapes("1000x8").Visible = False
                                ActiveSheet.Shapes("1000x7").Visible = False
                                ActiveSheet.Shapes("1000x6").Visible = False
                                ActiveSheet.Shapes("1000x5").Visible = False
                                ActiveSheet.Shapes("P1000x9").Visible = False
                                ActiveSheet.Shapes("P1000x8").Visible = False
                                ActiveSheet.Shapes("P1000x7").Visible = False
                                ActiveSheet.Shapes("P1000x6").Visible = False
                                ActiveSheet.Shapes("P1000x5").Visible = False
                                ElseIf ActiveCell.Value = 3 Then
                                    ActiveSheet.Shapes("1000x9").Visible = False
                                    ActiveSheet.Shapes("1000x8").Visible = False
                                    ActiveSheet.Shapes("1000x7").Visible = False
                                    ActiveSheet.Shapes("1000x6").Visible = False
                                    ActiveSheet.Shapes("1000x5").Visible = False
                                    ActiveSheet.Shapes("1000x4").Visible = False
                                    ActiveSheet.Shapes("P1000x9").Visible = False
                                    ActiveSheet.Shapes("P1000x8").Visible = False
                                    ActiveSheet.Shapes("P1000x7").Visible = False
                                    ActiveSheet.Shapes("P1000x6").Visible = False
                                    ActiveSheet.Shapes("P1000x5").Visible = False
                                    ActiveSheet.Shapes("P1000x4").Visible = False
                                    ElseIf ActiveCell.Value = 2 Then
                                        ActiveSheet.Shapes("1000x9").Visible = False
                                        ActiveSheet.Shapes("1000x8").Visible = False
                                        ActiveSheet.Shapes("1000x7").Visible = False
                                        ActiveSheet.Shapes("1000x6").Visible = False
                                        ActiveSheet.Shapes("1000x5").Visible = False
                                        ActiveSheet.Shapes("1000x4").Visible = False
                                        ActiveSheet.Shapes("1000x3").Visible = False
                                        ActiveSheet.Shapes("P1000x9").Visible = False
                                        ActiveSheet.Shapes("P1000x8").Visible = False
                                        ActiveSheet.Shapes("P1000x7").Visible = False
                                        ActiveSheet.Shapes("P1000x6").Visible = False
                                        ActiveSheet.Shapes("P1000x5").Visible = False
                                        ActiveSheet.Shapes("P1000x4").Visible = False
                                        ActiveSheet.Shapes("P1000x3").Visible = False
                                        ElseIf ActiveCell.Value = 1 Then
                                            ActiveSheet.Shapes("1000x9").Visible = False
                                            ActiveSheet.Shapes("1000x8").Visible = False
                                            ActiveSheet.Shapes("1000x7").Visible = False
                                            ActiveSheet.Shapes("1000x6").Visible = False
                                            ActiveSheet.Shapes("1000x5").Visible = False
                                            ActiveSheet.Shapes("1000x4").Visible = False
                                            ActiveSheet.Shapes("1000x3").Visible = False
                                            ActiveSheet.Shapes("1000x2").Visible = False
                                            ActiveSheet.Shapes("P1000x9").Visible = False
                                            ActiveSheet.Shapes("P1000x8").Visible = False
                                            ActiveSheet.Shapes("P1000x7").Visible = False
                                            ActiveSheet.Shapes("P1000x6").Visible = False
                                            ActiveSheet.Shapes("P1000x5").Visible = False
                                            ActiveSheet.Shapes("P1000x4").Visible = False
                                            ActiveSheet.Shapes("P1000x3").Visible = False
                                            ActiveSheet.Shapes("P1000x2").Visible = False
                                            ElseIf ActiveCell.Value = 0 Then
                                                ActiveSheet.Shapes("1000x9").Visible = False
                                                ActiveSheet.Shapes("1000x8").Visible = False
                                                ActiveSheet.Shapes("1000x7").Visible = False
                                                ActiveSheet.Shapes("1000x6").Visible = False
                                                ActiveSheet.Shapes("1000x5").Visible = False
                                                ActiveSheet.Shapes("1000x4").Visible = False
                                                ActiveSheet.Shapes("1000x3").Visible = False
                                                ActiveSheet.Shapes("1000x2").Visible = False
                                                ActiveSheet.Shapes("1000x1").Visible = False
                                                ActiveSheet.Shapes("P1000x9").Visible = False
                                                ActiveSheet.Shapes("P1000x8").Visible = False
                                                ActiveSheet.Shapes("P1000x7").Visible = False
                                                ActiveSheet.Shapes("P1000x6").Visible = False
                                                ActiveSheet.Shapes("P1000x5").Visible = False
                                                ActiveSheet.Shapes("P1000x4").Visible = False
                                                ActiveSheet.Shapes("P1000x3").Visible = False
                                                ActiveSheet.Shapes("P1000x2").Visible = False
                                                ActiveSheet.Shapes("P1000x1").Visible = False
                                            End If

                                                                            
End Sub

Sub Hide_100()

Worksheets("Representations").Select
Show100
Range("R1").Select

If ActiveCell.Value = 9 Then
    ActiveSheet.Shapes("100x9").Visible = True
    ActiveSheet.Shapes("P100x9").Visible = True
    ElseIf ActiveCell.Value = 8 Then
        ActiveSheet.Shapes("100x9").Visible = False
        ActiveSheet.Shapes("P100x9").Visible = True
        ElseIf ActiveCell.Value = 7 Then
            ActiveSheet.Shapes("100x9").Visible = False
            ActiveSheet.Shapes("100x8").Visible = False
            ActiveSheet.Shapes("P100x9").Visible = False
            ActiveSheet.Shapes("P100x8").Visible = False
            ElseIf ActiveCell.Value = 6 Then
                ActiveSheet.Shapes("100x9").Visible = False
                ActiveSheet.Shapes("100x8").Visible = False
                ActiveSheet.Shapes("100x7").Visible = False
                ActiveSheet.Shapes("P100x9").Visible = False
                ActiveSheet.Shapes("P100x8").Visible = False
                ActiveSheet.Shapes("P100x7").Visible = False
                    ElseIf ActiveCell.Value = 5 Then
                        ActiveSheet.Shapes("100x9").Visible = False
                        ActiveSheet.Shapes("100x8").Visible = False
                        ActiveSheet.Shapes("100x7").Visible = False
                        ActiveSheet.Shapes("100x6").Visible = False
                        ActiveSheet.Shapes("P100x9").Visible = False
                        ActiveSheet.Shapes("P100x8").Visible = False
                        ActiveSheet.Shapes("P100x7").Visible = False
                        ActiveSheet.Shapes("P100x6").Visible = False
                            ElseIf ActiveCell.Value = 4 Then
                                ActiveSheet.Shapes("100x9").Visible = False
                                ActiveSheet.Shapes("100x8").Visible = False
                                ActiveSheet.Shapes("100x7").Visible = False
                                ActiveSheet.Shapes("100x6").Visible = False
                                ActiveSheet.Shapes("100x5").Visible = False
                                ActiveSheet.Shapes("P100x9").Visible = False
                                ActiveSheet.Shapes("P100x8").Visible = False
                                ActiveSheet.Shapes("P100x7").Visible = False
                                ActiveSheet.Shapes("P100x6").Visible = False
                                ActiveSheet.Shapes("P100x5").Visible = False
                                ElseIf ActiveCell.Value = 3 Then
                                    ActiveSheet.Shapes("100x9").Visible = False
                                    ActiveSheet.Shapes("100x8").Visible = False
                                    ActiveSheet.Shapes("100x7").Visible = False
                                    ActiveSheet.Shapes("100x6").Visible = False
                                    ActiveSheet.Shapes("100x5").Visible = False
                                    ActiveSheet.Shapes("100x4").Visible = False
                                    ActiveSheet.Shapes("P100x9").Visible = False
                                    ActiveSheet.Shapes("P100x8").Visible = False
                                    ActiveSheet.Shapes("P100x7").Visible = False
                                    ActiveSheet.Shapes("P100x6").Visible = False
                                    ActiveSheet.Shapes("P100x5").Visible = False
                                    ActiveSheet.Shapes("P100x4").Visible = False
                                    ElseIf ActiveCell.Value = 2 Then
                                        ActiveSheet.Shapes("100x9").Visible = False
                                        ActiveSheet.Shapes("100x8").Visible = False
                                        ActiveSheet.Shapes("100x7").Visible = False
                                        ActiveSheet.Shapes("100x6").Visible = False
                                        ActiveSheet.Shapes("100x5").Visible = False
                                        ActiveSheet.Shapes("100x4").Visible = False
                                        ActiveSheet.Shapes("100x3").Visible = False
                                        ActiveSheet.Shapes("P100x9").Visible = False
                                        ActiveSheet.Shapes("P100x8").Visible = False
                                        ActiveSheet.Shapes("P100x7").Visible = False
                                        ActiveSheet.Shapes("P100x6").Visible = False
                                        ActiveSheet.Shapes("P100x5").Visible = False
                                        ActiveSheet.Shapes("P100x4").Visible = False
                                        ActiveSheet.Shapes("P100x3").Visible = False
                                        ElseIf ActiveCell.Value = 1 Then
                                            ActiveSheet.Shapes("100x9").Visible = False
                                            ActiveSheet.Shapes("100x8").Visible = False
                                            ActiveSheet.Shapes("100x7").Visible = False
                                            ActiveSheet.Shapes("100x6").Visible = False
                                            ActiveSheet.Shapes("100x5").Visible = False
                                            ActiveSheet.Shapes("100x4").Visible = False
                                            ActiveSheet.Shapes("100x3").Visible = False
                                            ActiveSheet.Shapes("100x2").Visible = False
                                            ActiveSheet.Shapes("P100x9").Visible = False
                                            ActiveSheet.Shapes("P100x8").Visible = False
                                            ActiveSheet.Shapes("P100x7").Visible = False
                                            ActiveSheet.Shapes("P100x6").Visible = False
                                            ActiveSheet.Shapes("P100x5").Visible = False
                                            ActiveSheet.Shapes("P100x4").Visible = False
                                            ActiveSheet.Shapes("P100x3").Visible = False
                                            ActiveSheet.Shapes("P100x2").Visible = False
                                            ElseIf ActiveCell.Value = 0 Then
                                                ActiveSheet.Shapes("100x9").Visible = False
                                                ActiveSheet.Shapes("100x8").Visible = False
                                                ActiveSheet.Shapes("100x7").Visible = False
                                                ActiveSheet.Shapes("100x6").Visible = False
                                                ActiveSheet.Shapes("100x5").Visible = False
                                                ActiveSheet.Shapes("100x4").Visible = False
                                                ActiveSheet.Shapes("100x3").Visible = False
                                                ActiveSheet.Shapes("100x2").Visible = False
                                                ActiveSheet.Shapes("100x1").Visible = False
                                                ActiveSheet.Shapes("P100x9").Visible = False
                                                ActiveSheet.Shapes("P100x8").Visible = False
                                                ActiveSheet.Shapes("P100x7").Visible = False
                                                ActiveSheet.Shapes("P100x6").Visible = False
                                                ActiveSheet.Shapes("P100x5").Visible = False
                                                ActiveSheet.Shapes("P100x4").Visible = False
                                                ActiveSheet.Shapes("P100x3").Visible = False
                                                ActiveSheet.Shapes("P100x2").Visible = False
                                                ActiveSheet.Shapes("P100x1").Visible = False
                                            End If

                                                                            
End Sub

Sub Hide_10()

Worksheets("Representations").Select
Show10
Range("S1").Select

If ActiveCell.Value = 9 Then
    ActiveSheet.Shapes("10x9").Visible = True
    ActiveSheet.Shapes("P10x9").Visible = True
    ElseIf ActiveCell.Value = 8 Then
        ActiveSheet.Shapes("10x9").Visible = False
        ActiveSheet.Shapes("P10x9").Visible = True
        ElseIf ActiveCell.Value = 7 Then
            ActiveSheet.Shapes("10x9").Visible = False
            ActiveSheet.Shapes("10x8").Visible = False
            ActiveSheet.Shapes("P10x9").Visible = False
            ActiveSheet.Shapes("P10x8").Visible = False
            ElseIf ActiveCell.Value = 6 Then
                ActiveSheet.Shapes("10x9").Visible = False
                ActiveSheet.Shapes("10x8").Visible = False
                ActiveSheet.Shapes("10x7").Visible = False
                ActiveSheet.Shapes("P10x9").Visible = False
                ActiveSheet.Shapes("P10x8").Visible = False
                ActiveSheet.Shapes("P10x7").Visible = False
                    ElseIf ActiveCell.Value = 5 Then
                        ActiveSheet.Shapes("10x9").Visible = False
                        ActiveSheet.Shapes("10x8").Visible = False
                        ActiveSheet.Shapes("10x7").Visible = False
                        ActiveSheet.Shapes("10x6").Visible = False
                        ActiveSheet.Shapes("P10x9").Visible = False
                        ActiveSheet.Shapes("P10x8").Visible = False
                        ActiveSheet.Shapes("P10x7").Visible = False
                        ActiveSheet.Shapes("P10x6").Visible = False
                            ElseIf ActiveCell.Value = 4 Then
                                ActiveSheet.Shapes("10x9").Visible = False
                                ActiveSheet.Shapes("10x8").Visible = False
                                ActiveSheet.Shapes("10x7").Visible = False
                                ActiveSheet.Shapes("10x6").Visible = False
                                ActiveSheet.Shapes("10x5").Visible = False
                                ActiveSheet.Shapes("P10x9").Visible = False
                                ActiveSheet.Shapes("P10x8").Visible = False
                                ActiveSheet.Shapes("P10x7").Visible = False
                                ActiveSheet.Shapes("P10x6").Visible = False
                                ActiveSheet.Shapes("P10x5").Visible = False
                                ElseIf ActiveCell.Value = 3 Then
                                    ActiveSheet.Shapes("10x9").Visible = False
                                    ActiveSheet.Shapes("10x8").Visible = False
                                    ActiveSheet.Shapes("10x7").Visible = False
                                    ActiveSheet.Shapes("10x6").Visible = False
                                    ActiveSheet.Shapes("10x5").Visible = False
                                    ActiveSheet.Shapes("10x4").Visible = False
                                    ActiveSheet.Shapes("P10x9").Visible = False
                                    ActiveSheet.Shapes("P10x8").Visible = False
                                    ActiveSheet.Shapes("P10x7").Visible = False
                                    ActiveSheet.Shapes("P10x6").Visible = False
                                    ActiveSheet.Shapes("P10x5").Visible = False
                                    ActiveSheet.Shapes("P10x4").Visible = False
                                    ElseIf ActiveCell.Value = 2 Then
                                        ActiveSheet.Shapes("10x9").Visible = False
                                        ActiveSheet.Shapes("10x8").Visible = False
                                        ActiveSheet.Shapes("10x7").Visible = False
                                        ActiveSheet.Shapes("10x6").Visible = False
                                        ActiveSheet.Shapes("10x5").Visible = False
                                        ActiveSheet.Shapes("10x4").Visible = False
                                        ActiveSheet.Shapes("10x3").Visible = False
                                        ActiveSheet.Shapes("P10x9").Visible = False
                                        ActiveSheet.Shapes("P10x8").Visible = False
                                        ActiveSheet.Shapes("P10x7").Visible = False
                                        ActiveSheet.Shapes("P10x6").Visible = False
                                        ActiveSheet.Shapes("P10x5").Visible = False
                                        ActiveSheet.Shapes("P10x4").Visible = False
                                        ActiveSheet.Shapes("P10x3").Visible = False
                                        ElseIf ActiveCell.Value = 1 Then
                                            ActiveSheet.Shapes("10x9").Visible = False
                                            ActiveSheet.Shapes("10x8").Visible = False
                                            ActiveSheet.Shapes("10x7").Visible = False
                                            ActiveSheet.Shapes("10x6").Visible = False
                                            ActiveSheet.Shapes("10x5").Visible = False
                                            ActiveSheet.Shapes("10x4").Visible = False
                                            ActiveSheet.Shapes("10x3").Visible = False
                                            ActiveSheet.Shapes("10x2").Visible = False
                                            ActiveSheet.Shapes("P10x9").Visible = False
                                            ActiveSheet.Shapes("P10x8").Visible = False
                                            ActiveSheet.Shapes("P10x7").Visible = False
                                            ActiveSheet.Shapes("P10x6").Visible = False
                                            ActiveSheet.Shapes("P10x5").Visible = False
                                            ActiveSheet.Shapes("P10x4").Visible = False
                                            ActiveSheet.Shapes("P10x3").Visible = False
                                            ActiveSheet.Shapes("P10x2").Visible = False
                                            ElseIf ActiveCell.Value = 0 Then
                                                ActiveSheet.Shapes("10x9").Visible = False
                                                ActiveSheet.Shapes("10x8").Visible = False
                                                ActiveSheet.Shapes("10x7").Visible = False
                                                ActiveSheet.Shapes("10x6").Visible = False
                                                ActiveSheet.Shapes("10x5").Visible = False
                                                ActiveSheet.Shapes("10x4").Visible = False
                                                ActiveSheet.Shapes("10x3").Visible = False
                                                ActiveSheet.Shapes("10x2").Visible = False
                                                ActiveSheet.Shapes("10x1").Visible = False
                                                ActiveSheet.Shapes("P10x9").Visible = False
                                                ActiveSheet.Shapes("P10x8").Visible = False
                                                ActiveSheet.Shapes("P10x7").Visible = False
                                                ActiveSheet.Shapes("P10x6").Visible = False
                                                ActiveSheet.Shapes("P10x5").Visible = False
                                                ActiveSheet.Shapes("P10x4").Visible = False
                                                ActiveSheet.Shapes("P10x3").Visible = False
                                                ActiveSheet.Shapes("P10x2").Visible = False
                                                ActiveSheet.Shapes("P10x1").Visible = False
                                            End If

                                                                            
End Sub

Sub Hide_1()

Worksheets("Representations").Select
Show1
Range("T1").Select

If ActiveCell.Value = 9 Then
    ActiveSheet.Shapes("1x9").Visible = True
    ActiveSheet.Shapes("P1x9").Visible = True
    ElseIf ActiveCell.Value = 8 Then
        ActiveSheet.Shapes("1x9").Visible = False
        ActiveSheet.Shapes("P1x9").Visible = True
        ElseIf ActiveCell.Value = 7 Then
            ActiveSheet.Shapes("1x9").Visible = False
            ActiveSheet.Shapes("1x8").Visible = False
            ActiveSheet.Shapes("P1x9").Visible = False
            ActiveSheet.Shapes("P1x8").Visible = False
            ElseIf ActiveCell.Value = 6 Then
                ActiveSheet.Shapes("1x9").Visible = False
                ActiveSheet.Shapes("1x8").Visible = False
                ActiveSheet.Shapes("1x7").Visible = False
                ActiveSheet.Shapes("P1x9").Visible = False
                ActiveSheet.Shapes("P1x8").Visible = False
                ActiveSheet.Shapes("P1x7").Visible = False
                    ElseIf ActiveCell.Value = 5 Then
                        ActiveSheet.Shapes("1x9").Visible = False
                        ActiveSheet.Shapes("1x8").Visible = False
                        ActiveSheet.Shapes("1x7").Visible = False
                        ActiveSheet.Shapes("1x6").Visible = False
                        ActiveSheet.Shapes("P1x9").Visible = False
                        ActiveSheet.Shapes("P1x8").Visible = False
                        ActiveSheet.Shapes("P1x7").Visible = False
                        ActiveSheet.Shapes("P1x6").Visible = False
                            ElseIf ActiveCell.Value = 4 Then
                                ActiveSheet.Shapes("1x9").Visible = False
                                ActiveSheet.Shapes("1x8").Visible = False
                                ActiveSheet.Shapes("1x7").Visible = False
                                ActiveSheet.Shapes("1x6").Visible = False
                                ActiveSheet.Shapes("1x5").Visible = False
                                ActiveSheet.Shapes("P1x9").Visible = False
                                ActiveSheet.Shapes("P1x8").Visible = False
                                ActiveSheet.Shapes("P1x7").Visible = False
                                ActiveSheet.Shapes("P1x6").Visible = False
                                ActiveSheet.Shapes("P1x5").Visible = False
                                ElseIf ActiveCell.Value = 3 Then
                                    ActiveSheet.Shapes("1x9").Visible = False
                                    ActiveSheet.Shapes("1x8").Visible = False
                                    ActiveSheet.Shapes("1x7").Visible = False
                                    ActiveSheet.Shapes("1x6").Visible = False
                                    ActiveSheet.Shapes("1x5").Visible = False
                                    ActiveSheet.Shapes("1x4").Visible = False
                                    ActiveSheet.Shapes("P1x9").Visible = False
                                    ActiveSheet.Shapes("P1x8").Visible = False
                                    ActiveSheet.Shapes("P1x7").Visible = False
                                    ActiveSheet.Shapes("P1x6").Visible = False
                                    ActiveSheet.Shapes("P1x5").Visible = False
                                    ActiveSheet.Shapes("P1x4").Visible = False
                                    ElseIf ActiveCell.Value = 2 Then
                                        ActiveSheet.Shapes("1x9").Visible = False
                                        ActiveSheet.Shapes("1x8").Visible = False
                                        ActiveSheet.Shapes("1x7").Visible = False
                                        ActiveSheet.Shapes("1x6").Visible = False
                                        ActiveSheet.Shapes("1x5").Visible = False
                                        ActiveSheet.Shapes("1x4").Visible = False
                                        ActiveSheet.Shapes("1x3").Visible = False
                                        ActiveSheet.Shapes("P1x9").Visible = False
                                        ActiveSheet.Shapes("P1x8").Visible = False
                                        ActiveSheet.Shapes("P1x7").Visible = False
                                        ActiveSheet.Shapes("P1x6").Visible = False
                                        ActiveSheet.Shapes("P1x5").Visible = False
                                        ActiveSheet.Shapes("P1x4").Visible = False
                                        ActiveSheet.Shapes("P1x3").Visible = False
                                        ElseIf ActiveCell.Value = 1 Then
                                            ActiveSheet.Shapes("1x9").Visible = False
                                            ActiveSheet.Shapes("1x8").Visible = False
                                            ActiveSheet.Shapes("1x7").Visible = False
                                            ActiveSheet.Shapes("1x6").Visible = False
                                            ActiveSheet.Shapes("1x5").Visible = False
                                            ActiveSheet.Shapes("1x4").Visible = False
                                            ActiveSheet.Shapes("1x3").Visible = False
                                            ActiveSheet.Shapes("1x2").Visible = False
                                            ActiveSheet.Shapes("P1x9").Visible = False
                                            ActiveSheet.Shapes("P1x8").Visible = False
                                            ActiveSheet.Shapes("P1x7").Visible = False
                                            ActiveSheet.Shapes("P1x6").Visible = False
                                            ActiveSheet.Shapes("P1x5").Visible = False
                                            ActiveSheet.Shapes("P1x4").Visible = False
                                            ActiveSheet.Shapes("P1x3").Visible = False
                                            ActiveSheet.Shapes("P1x2").Visible = False
                                            ElseIf ActiveCell.Value = 0 Then
                                                ActiveSheet.Shapes("1x9").Visible = False
                                                ActiveSheet.Shapes("1x8").Visible = False
                                                ActiveSheet.Shapes("1x7").Visible = False
                                                ActiveSheet.Shapes("1x6").Visible = False
                                                ActiveSheet.Shapes("1x5").Visible = False
                                                ActiveSheet.Shapes("1x4").Visible = False
                                                ActiveSheet.Shapes("1x3").Visible = False
                                                ActiveSheet.Shapes("1x2").Visible = False
                                                ActiveSheet.Shapes("1x1").Visible = False
                                                ActiveSheet.Shapes("P1x9").Visible = False
                                                ActiveSheet.Shapes("P1x8").Visible = False
                                                ActiveSheet.Shapes("P1x7").Visible = False
                                                ActiveSheet.Shapes("P1x6").Visible = False
                                                ActiveSheet.Shapes("P1x5").Visible = False
                                                ActiveSheet.Shapes("P1x4").Visible = False
                                                ActiveSheet.Shapes("P1x3").Visible = False
                                                ActiveSheet.Shapes("P1x2").Visible = False
                                                ActiveSheet.Shapes("P1x1").Visible = False
                                            End If

                                                                            
End Sub
 
Upvote 0
MoshiM said:
Should help a little. You should consider writing general subs that you can feed arguments into where possible.
Double check that I didn't mess up the objectives of what you want to do.
VBA Code: 
Sub ShowShapes(Target_Number As Long, Optional Upper_Limit As Long = 0)

Dim INDX As Long

If Upper_Limit = 0 Then Upper_Limit = 9

With ActiveSheet

    For INDX = 1 To Upper_Limit
        .Shapes(Target_Number & "x" & INDX).Visible = True
        .Shapes("P" & Target_Number & "x" & INDX).Visible = True
    Next INDX
   
End With

End Sub

Sub Hide_Shapes(Target_INDX As Long)

Dim WS As Worksheet, Val As Long, INDX As Long

Set WS = Worksheets("Representations")

With WS

    Select Case Target_INDX
   
        Case 1000: Val = .Range("Q1").Value2
        Case 100: Val = .Range("R1").Value2
        Case 10: Val = .Range("S1").Value2
        Case 1: Val = .Range("T1").Value2
       
    End Select
   
    ShowShapes Target_Number:=Target_INDX, Upper_Limit:=Val 'Make shapes less than or equal to Val visible

    Select Case Val
   
        Case 8 'dont need 9 since show shapes already made it visible if val is 9
       
            .Shapes(Target_INDX & "x9").Visible = False
            .Shapes("P" & Target_INDX & "x9").Visible = True
       
        Case Else
       
            For INDX = Val + 1 To 9
                .Shapes(Target_INDX & "x" & INDX).Visible = False
                .Shapes("P" & Target_INDX & "x" & INDX).Visible = False
            Next INDX
           
    End Select

End With
                                                                           
End Sub

Sub ShowAllCards()

Dim NUM(1 To 4) As Variant, X As Long, ID() As String

For X = 1 To 4
    NUM(X) = 1000 / (10 ^ (X - 1)) & "C" '1000,100,10,1
Next X

With ActiveSheet

For X = 1 To 4
   
    .Shapes(NUM(X)).Visible = False
   
    .Buttons("Show" & NUM(X)).Visible = False
    .Buttons("Hide" & NUM(X)).Visible = True
   
Next X
    .Shapes("TotalC").Visible = False
   
    .Buttons("ShowAllC").Visible = False
    .Buttons("HideAllC").Visible = True
   
    .Buttons("ShowTotal").Visible = False
    .Buttons("HideTotal").Visible = True
End With

End Sub
Click to expand...

Sorry, I got a little confused, how does the code know which of the buttons I pressed?

Here is a screen shot so you know what some of the things mean (note: I realise this is not really for your benefit, but for mine when you're explaining to me). Thanks again for all your help.

Note, the shapes shown have the names 1000x1, 1000x2, 1000x3 etc. If the user chooses to hide them, excel puts a filled white rectangle over the images. This is because the number of images changes every item a new number is selected, so the value of the digits is stored in Q1, R1, S1 and T1, enabling them to show/hide by covering them without changing the value of the numbers.

1588769258632.png
1588769282018.png
 
Upvote 0
MoshiM said:
Yes. You'd still need separate subs to feed parameters in however.
Click to expand...

Would you consider taking a look at the file for me? It's just that it doesn't quite do what it's supposed to if I use your code. I'm sure that I just need to point the two main buttons to the right place to get the code to work, but as I said, unfortunately I'm a novice with vba really. Just to reassure you, I don't get paid anything for what you see in this spreadsheet... It's just a handy tool for teachers like me for using with their children.

Dropbox link to a copy of my spreadsheet
 
Upvote 0
TweetingCynical said:
Would you consider taking a look at the file for me? It's just that it doesn't quite do what it's supposed to if I use your code. I'm sure that I just need to point the two main buttons to the right place to get the code to work, but as I said, unfortunately I'm a novice with vba really. Just to reassure you, I don't get paid anything for what you see in this spreadsheet... It's just a handy tool for teachers like me for using with their children.

Dropbox link to a copy of my spreadsheet
Click to expand...
I haven't looked at your file but you're mostly there already. You've already got the separate subs all you need to do is supply the values like for your Show1000 sub. All you'd need to do is replace it with
Code: 
Sub Show1000()
    ShowShapes 1000
end sub

Same for hiding shapes:
Code: 
Sub Hide_1000
    Hide_Shapes 1000
end sub
 
Upvote 0
You must log in or register to reply here.

Forum statistics

Threads
1,216,115
Messages
6,128,919
Members
449,478
Latest member
Davenil

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top