VBA i Office 2007

Hej

Jeg har i nedenstående spørgsmål fået den nedenstående opslagsfunktion og den virker helt perfekt, lige med undtagelse af i Office 2007.

Jeg har derfor to spørgsmål:

Findes der en funktion, der undersøger hvilken version af Office der ligger på maskinen og dermed kan bestemme hvilke VBA der skal afvikles?

Kan nedenstående VBA omskrives så den også virker i Office 2007 og hvordan vil den komme til at se ud?

http://www.eksperten.dk/spm/861696#reply_7314259

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A9:A100,B9:B100")) Is Nothing Then Exit Sub

    If Target.Column = 1 Then
        Target.Offset(0, 1).Value = Sheets("Formål").Range("F").Find(Target.Value, LookIn:=xlValues).Offset(0, 1)
    End If
 
    If Target.Column = 2 Then
        Target.Offset(0, -1).Value = Sheets("Formål").Range("Formal").Find(Target.Value, LookIn:=xlValues).Offset(0, -1)
    End If

End Sub