Excel 2007 : Vba auto run question

[Sazza]

Hi Guys,

I have the below VBA on a worksheet called 'Totals'

Cell A1 on 'Totals' contains a value from the 'INFO' tab so "=INFO!B3"

When i change the value ( drop down) on the 'INFO' tab ( and replicated on the 'Totals' tab)
the macro does not fire. Only work for the first change mad ein drop down and not subsequently.

How do i make this fire each time i chane the value using drop down ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


 
 
If Range("A1").Value = "1" Then

                                  Columns("C").EntireColumn.Hidden = False
                                  Columns("D").EntireColumn.Hidden = False
                                  Columns("E").EntireColumn.Hidden = True
                                  Columns("F").EntireColumn.Hidden = True
                                  Columns("G").EntireColumn.Hidden = True
                                  Columns("H").EntireColumn.Hidden = True
                                  Columns("I").EntireColumn.Hidden = True
                                  Columns("J").EntireColumn.Hidden = True
                                       
ElseIf Range("A1").Value = "2" Then
                            
                                    Columns("C").EntireColumn.Hidden = True
                                  Columns("D").EntireColumn.Hidden = True
                                  Columns("E").EntireColumn.Hidden = False
                                  Columns("F").EntireColumn.Hidden = False
                                  Columns("G").EntireColumn.Hidden = True
                                  Columns("H").EntireColumn.Hidden = True
                                  Columns("I").EntireColumn.Hidden = True
                                  Columns("J").EntireColumn.Hidden = True
                                     
ElseIf Range("A1").Value = "3" Then
                                  Columns("C").EntireColumn.Hidden = True
                                  Columns("D").EntireColumn.Hidden = True
                                  Columns("E").EntireColumn.Hidden = True
                                  Columns("F").EntireColumn.Hidden = True
                                  Columns("G").EntireColumn.Hidden = False
                                  Columns("H").EntireColumn.Hidden = False
                                  Columns("I").EntireColumn.Hidden = True
                                  Columns("J").EntireColumn.Hidden = True

  ElseIf Range("A1").Value = "V2" Then
                            
                                   Columns("C").EntireColumn.Hidden = True
                                  Columns("D").EntireColumn.Hidden = True
                                  Columns("E").EntireColumn.Hidden = True
                                  Columns("F").EntireColumn.Hidden = True
                                  Columns("G").EntireColumn.Hidden = True
                                  Columns("H").EntireColumn.Hidden = True
                                  Columns("I").EntireColumn.Hidden = False
                                  Columns("J").EntireColumn.Hidden = False
                                  
                                  
ElseIf Range("A1").Value = "" Then
                                     Columns("C").EntireColumn.Hidden = False
                                  Columns("D").EntireColumn.Hidden = False
                                  Columns("E").EntireColumn.Hidden = False
                                  Columns("F").EntireColumn.Hidden = False
                                  Columns("G").EntireColumn.Hidden = False
                                  Columns("H").EntireColumn.Hidden = False
                                  Columns("I").EntireColumn.Hidden = False
                                  Columns("J").EntireColumn.Hidden = False
                                       
                                  
                                  End If

End Sub