Macro for shape invisible

I have created 8 rectangle shape, if the value in the cell A1=1 , then all the 8 rectangle should be visible, if the value in the cell A1=2 , then only 2nd rectangle should be visible , remaining 7 rectangle should be invisible,
The below code is not working and it is too big, can anyone will help me.

PHP Code: 

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveSheet.Range("A1").Value = 1 Then
ActiveSheet.Shapes("Rectangle 1").Visible = True
ActiveSheet.Shapes("Rectangle 2").Visible = True
ActiveSheet.Shapes("Rectangle 3").Visible = True
ActiveSheet.Shapes("Rectangle 4").Visible = True
ActiveSheet.Shapes("Rectangle 5").Visible = True
ActiveSheet.Shapes("Rectangle 6").Visible = True
ActiveSheet.Shapes("Rectangle 7").Visible = True
ActiveSheet.Shapes("Rectangle 8").Visible = True
Else
ActiveSheet.Shapes("Rectangle 1").Visible = False
ActiveSheet.Shapes("Rectangle 2").Visible = False
ActiveSheet.Shapes("Rectangle 3").Visible = False
ActiveSheet.Shapes("Rectangle 4").Visible = False
ActiveSheet.Shapes("Rectangle 5").Visible = False
ActiveSheet.Shapes("Rectangle 6").Visible = False
ActiveSheet.Shapes("Rectangle 7").Visible = False
ActiveSheet.Shapes("Rectangle 8").Visible = False
End If


If ActiveSheet.Range("A1").Value = 2 Then
ActiveSheet.Shapes("Rectangle 1").Visible = False
ActiveSheet.Shapes("Rectangle 2").Visible = True
ActiveSheet.Shapes("Rectangle 3").Visible = False
ActiveSheet.Shapes("Rectangle 4").Visible = False
ActiveSheet.Shapes("Rectangle 5").Visible = False
ActiveSheet.Shapes("Rectangle 6").Visible = False
ActiveSheet.Shapes("Rectangle 7").Visible = False
ActiveSheet.Shapes("Rectangle 8").Visible = False
Else
ActiveSheet.Shapes("Rectangle 1").Visible = False
ActiveSheet.Shapes("Rectangle 2").Visible = False
ActiveSheet.Shapes("Rectangle 3").Visible = False
ActiveSheet.Shapes("Rectangle 4").Visible = False
ActiveSheet.Shapes("Rectangle 5").Visible = False
ActiveSheet.Shapes("Rectangle 6").Visible = False
ActiveSheet.Shapes("Rectangle 7").Visible = False
ActiveSheet.Shapes("Rectangle 8").Visible = False
End If

If ActiveSheet.Range("A1").Value = 3 Then
ActiveSheet.Shapes("Rectangle 1").Visible = False
ActiveSheet.Shapes("Rectangle 2").Visible = False
ActiveSheet.Shapes("Rectangle 3").Visible = True
ActiveSheet.Shapes("Rectangle 4").Visible = False
ActiveSheet.Shapes("Rectangle 5").Visible = False
ActiveSheet.Shapes("Rectangle 6").Visible = False
ActiveSheet.Shapes("Rectangle 7").Visible = False
ActiveSheet.Shapes("Rectangle 8").Visible = False
Else
ActiveSheet.Shapes("Rectangle 1").Visible = False
ActiveSheet.Shapes("Rectangle 2").Visible = False
ActiveSheet.Shapes("Rectangle 3").Visible = False
ActiveSheet.Shapes("Rectangle 4").Visible = False
ActiveSheet.Shapes("Rectangle 5").Visible = False
ActiveSheet.Shapes("Rectangle 6").Visible = False
ActiveSheet.Shapes("Rectangle 7").Visible = False
ActiveSheet.Shapes("Rectangle 8").Visible = False
End If

End Sub 


Try in worksheet module - Worksheet_Change event.

Please Login or Register  to view this content.