Umschreiben auf Excel 97

Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As Variant

Dim Find As Range
If Target.Address <> "$A$3" Then Exit Sub
Cancel = True
Set Find = Columns("B:Cy").Find(Range("A3").Value, _
lookat:=xlWhole, LookIn:=xlValues)
If Not Find Is Nothing Then
Find.Select
Selection.Interior.ColorIndex = 6
B = Find

Else
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
Call Zurück

End Sub

Public Sub Zurück()
Range("A3").Select
Range("B1") = B

End Sub