Making a Checkbox appear and disappear using a drop box selection

[simon@natsow.co.za]

FYI: I'm running Office 2007< however people with both 2003 and 2010 will receive the end product.

If I manually enter data into A2 (1 to 3) the Checkbox automatically become visible or in-visible as required
If I use the Dropbox and select an option, this also put a number between 1 and 3 into A2, however the Checkbox remain and does not become invisible etc

And this is where I require assistance to resolve, please see attached excel file Excel Query.xlsm

Code I'm using in spreadsheet:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("A2")) Is Nothing Then
If Target.Value > 1 Then
Me.Shapes("Check Box 11").Visible = True
Else
Me.Shapes("Check Box 11").Visible = False
End If
End If

End Sub