Omskrivning af kode fra 2010 til 2000 version

Hej eksperter
Jeg har længe nørklet med en kode i Excel der afgør om en shape i form af en frame med checkboxes skal vises og ikke vises. Nu har jeg endelig knækket koden, og alt er godt.... altså lige indtil jeg sendte dokumentet til en kunde der bruger en tidligere version af Excel. Resultatet er, at makroen slet ikke virker. Som jeg læser det, så skal man lave makroen så den passer til en XLS, for når jeg gemmer dukumentet som en XLS, så siger den at den ikke er kompatibel. Er der én der kan hjælpe med at skrive en kode mage til nedenstående, men hvor den er kompatibel til Excel version 2000?

Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H29")) Is Nothing Then ActiveSheet.Calculate
If Range("H29").Value = 1 Then
Me.Shapes("Frame2").Visible = False
Me.Shapes("Frame3").Visible = False
Me.Shapes("Frame4").Visible = False
Me.Shapes("Frame5").Visible = False
Me.Shapes("Frame1").Visible = True
Else
Me.Shapes("Frame1").Visible = False
End If
If Range("H29").Value = 2 Then
Me.Shapes("Frame2").Visible = True
Else
Me.Shapes("Frame2").Visible = False
End If
If Range("H29").Value = 3 Then
Me.Shapes("Frame3").Visible = True
Else
Me.Shapes("Frame3").Visible = False
End If
If Range("H29").Value = 4 Then
Me.Shapes("Frame4").Visible = True
Else
Me.Shapes("Frame4").Visible = False
End If
If Range("H29").Value = 5 Then
Me.Shapes("Frame5").Visible = True
Else
Me.Shapes("Frame5").Visible = False
End If
If Range("H29").Value = 1 Then
Me.Shapes("Frame1").Visible = True
Else
Me.Shapes("Frame1").Visible = False
End If
End Sub

På forhånd tak
Ghita