rullemenu i excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, Range("A2:A25")) Is Nothing Then
              with Varenavn
                      .visible=true
                      .top=target.top
                      .left=target.left
                      .width=target.width
                      .heigth=target.heigth
              end with
        else
              varenavn.visible=False
        end if
End Sub

Private Sub VareNavn_Change()
    Dim Arr() As Variant, D1 As Object, cl, c
    Arr = Sheets(1).Range("E2:E" & Sheets(1).[E65000].End(xlUp).Row)
    If VareNavn <> "" And IsError(Application.Match(VareNavn, Arr, 0)) Then
        Set D1 = CreateObject("Scripting.Dictionary")
        cl = UCase("*" & Replace(VareNavn, " ", "*") & "*")
        For Each c In Arr
            If UCase(c) Like cl Then D1(c) = ""
        Next c
        VareNavn.List = D1.keys
        VareNavn.DropDown
    End If
    Activecell.value=VareNavn.Value
End sub